access窗体中查询结果集传递给子窗体并显示
建立了一个窗体test,含一个子窗体showdata,,并含一个命令按钮,执行代码如下:PrivateSubCommand21_Click()DimstrSQLAsStr...
建立了一个窗体test,含一个子窗体showdata,,并含一个命令按钮,执行代码如下:
Private Sub Command21_Click()
Dim strSQL As String
strSQL = "select * from test"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
Set Me.showdata.Form.Recordset = rs
'Set Me.showdata.RecordSource = strSQL
Me.Refresh
Forms!test!showdata.Requery
End Sub
没有结果输出?这是咋回事 展开
Private Sub Command21_Click()
Dim strSQL As String
strSQL = "select * from test"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
Set Me.showdata.Form.Recordset = rs
'Set Me.showdata.RecordSource = strSQL
Me.Refresh
Forms!test!showdata.Requery
End Sub
没有结果输出?这是咋回事 展开
若以下回答无法解决问题,邀请你更新回答
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询