If Forms("领料申请").Opened Then
If tbl1.current IsNot Nothing Then
If qs.Checked = True Then
Tables("领料申请_table3").Filter = "[物供号] = '" & tbl1.current("物供号") & "' and [可申领数] > 0 and [适用款号] like " & txt
Else If qs.Checked = False Then
Tables("领料申请_table3").Filter = "[物供号] = '" & tbl1.current("物供号") & "' and [适用款号] like " & txt
End If
'Tables("领料申请_table3").Filter = "[物供号] = '" & tbl1.current("物供号") & "' and [适用款号] = '" & tbl1.current("款号") & "' "
Else
Tables("领料申请_table3").Filter = "[物供号] = 20181001"
End If
End If
[可申领数] > 0 没有起作用，等于0的值也出来了
[此贴子已经被作者于2018/10/9 9:56:23编辑过]
加好友 
发短信
Post By：2018/10/9 9:55:00 [只看该作者]
