|
Dim nms() As String = {"产品型号","工序号"}
Dim sps() As String = {"'","'"}
Dim bjf() As String = {"=","="}
Dim fds() As String = {"产品型号","工序号"}
Dim Filter As String
For i As Integer = 0 To nms.Length - 1
If e.Form.Controls(nms(i)).value IsNot Nothing Then
If filter > "" Then
filter = filter & " and "
End If
filter =filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
End If
Next
With e.Form.Controls( "第一份_领取人")
If .text > "" Then
If filter > "" Then
filter = filter & " and "
End If
filter=filter & "(第一份_领取人 = '" & .value & "' or 第二份_领取人 = '" & .value & "' or 第三份_领取人 = '" & .value & "')"
End If
End With
With e.Form.Controls( "领取日期")
If .text > "" Then
If filter > "" Then
filter = filter & " and "
End If
filter=filter & "(第一份_领取日期 = '" & .value & "' or 第二份_领取日期 = '" & .value & "' or 第三份_领取日期 = '" & .value & "')"
End If
End With
With e.Form.Controls( "返回日期")
If .text > "" Then
If filter > "" Then
filter = filter & " and "
End If
filter=filter & "(第一份_返回日期 = '" & .value & "' or 第二份_返回日期 = '" & .value & "' or 第三份_返回日期 = '" & .value & "')"
End If
End With
If e.Form.Controls( "已还").checked = True
If filter > "" Then
filter = filter & " and "
End If
filter=filter & " 已还=true"
End If
If e.Form.Controls( "未还").checked = True
If filter > "" Then
filter = filter & " and "
End If
filter=filter & " (未还 =false or 未还 is null)"
End If
Tables("工艺卡片发放记录").filter = filter
msgbox(filter)
|
加好友 
发短信
Post By：2018/1/24 15:08:00 [只看该作者]
