此主题相关图片如下:snipaste_2023-07-03_20-03-07.jpg
代码如下:
Dim filter As String
Dim ck As WinForm.CheckBox = e.Form.Controls("传输完成")
Dim sts() As String = {"项目编号", "模具编号", "年份", "主目录"}
For Each st As String In sts
Dim val As String = e.Form.Controls(st).text
If val > "" Then
val = val.Replace("*", "[*]")
If filter = "" Then
filter = st & " like '*" & val & "*' "
Else
filter = filter & " and " & st & " like '*" & val & "*'"
End If
End If
Next
If ck.Checked = True Then
If filter IsNot Nothing Then
filter = filter & " And 传输完成 = 1"
End If
End If
Tables("图档传输").Filter = filter
此主题相关图片如下:snipaste_2023-07-03_20-03-15.jpg