临时查询为子窗体数据源，刷新子窗体后无反应

huangxiuwen

请教各位大侠。采用【临时查询】作为子窗体的数据源，在主窗体的物料控件中选择物料条件后，点击〖查询〗按钮，子窗体显示的记录不会变。

感谢各位大侠。

〖查询〗按钮代码如下：


Dim StrG1 As String
StrG1 = "[物料名]='" & Me.Text1 & "'"
'更新临时查询
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
Set qdf = CurrentDb.QueryDefs("临时查询")
qdf.SQL = "SELECT * FROM [物料] WHERE " & StrG1
qdf.Close
Set qdf = Nothing
'刷新子窗体
Forms!主窗体.子窗体.Requery

todaynew

Forms!主窗体！子窗体.form.Requery

huangxiuwen

晕。。。。。。。。。。原来是这样错了。感谢todaynew

huangxiuwen

todaynew大侠，改了之后，还是没有反应。

todaynew

Private Sub Command0_Click()
Dim StrG1 As String
'更新临时查询
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
StrG1 = "[物料名]='" & Me.Text1 & "'"
Set qdf = CurrentDb.QueryDefs("临时查询")
qdf.SQL = "SELECT * FROM [物料] WHERE " & StrG1
'刷新子窗体
'这里需要再次更换数据源，原因我不大说的清楚。
Me.子窗体.Form.RecordSource = "临时查询"  
Me.子窗体.Form.Requery
qdf.Close
Set qdf = Nothing
End Sub

此外，还可以如下：
Private Sub Command5_Click()
Dim StrG1 As String
Me.子窗体.Form.RecordSource = "物料"
StrG1 = "[物料名]='" & Me.Text1 & "'"
Me.子窗体.Form.Filter = StrG1
Me.子窗体.Form.FilterOn = True
End Sub

huangxiuwen

之前是使用更换数据源的方法，但测试之后，发现速度没有刷新子窗体快，所以想改为刷新的方法，今天上午搞了很久，都没有成功。
感谢todaynew

todaynew

之前是使用更换数据源的方法，但测试之后，发现速度没有刷新子窗体快，所以想改为刷新的方法，今天上午搞了很久，都没有成功。
感谢todaynew
huangxiuwen 发表于 2009-3-23 19:58

速度比较快的方法可能是筛选。

huangxiuwen

筛选用于单一的模式是最好的选择，比如标准的显示模式，但如果是将【多字段混合排序】、【标准显示模式】、【交叉显示模式】、【最后一行显示合计记录】、【小数位自定义】集于一起。用筛选的方式就显得有些力不从心了。