If Connections("DA").SourceType = 1 Then 'Access数据源
Dim SQL,s1,s2 As String
s1 = e.Form.Controls("ComboBox3").value
s2 = e.Form.Controls("ComboBox4").value
If s1 > "" Then SQL = "机构 = '" & s1 & "'"
If s2 > "" Then
If SQL > "" Then SQL+ =" And "
SQL+ = "保管期限 = '" & s2 & "'"
End if
If SQL IsNot Nothing Then
Tables("检索查询_Table1").Fill("Select * From {档案新标准} Where " & SQL,"DA",False)
End If
End If
[此贴子已经被作者于2013-6-5 12:48:06编辑过]