为什么.Requery总是没有效果
Vexed 2005-09-07 09:02:20 Dim strSQL1 As String, strSQL2 As String
If IsNull(Me.学号) = False Then
strSQL1 = "='" & Me.学号 & "'"
Else
strSQL1 = "<> '00000000'"
End If
If IsNull(Me.分数) = False Then
strSQL2 = "='" & Me.分数 & "'"
Else
strSQL2 = "<> '00000000'"
End If
Dim dbs As Database, strSQL0 As String, strSQL3 As String, qdf0 As QueryDef
Set dbs = CurrentDb
strSQL0 = "SELECT 成绩表.* " & _
"FROM 成绩表 " & _
"WHERE (((成绩表.学号)" & strSQL1 & ") " & _
"AND ((成绩表.分数)" & strSQL2 & ")"
strSQL3 = ");"
Set qdf0 = dbs.CreateQueryDef("成绩表查询", strSQL0 + strSQL3)
Me.成绩表查询子窗体.Requery
---------------------------------------------------------------------------------------
为什么Me.成绩表查询子窗体.Requery总是没有效果呢