第一部功能:
Dim c As String = e.Form.Controls("ComboBox1").Text
Dim d As String = " " & e.Form.Controls("ComboBox2").Text & " "
Dim filter As String
Dim 符号 As String
If d = " like " Then
If tbl.Cols(c).IsString = False Then
Tables("模糊查询_订单").filter = "convert(" & c & ",'System.String')" & d & "'%" & e.Form.Controls("TextBox1").Text & "%'"
Else
Tables("模糊查询_订单").filter = c & d & "'%" & e.Form.Controls("TextBox1").Text & "%'"
End If
Else
If tbl.Cols(c).IsString Then
符号 = "'"
ElseIf tbl.Cols(c).IsDate Then
符号 = "#"
End If
Tables("模").filter = c & d & 符号 & e.Form.Controls("TextBox1").Text & 符号
End If
第二部功能
Dim Filter As String
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
End If
End With
Tables("模糊查询_订单").Filter = Filter
问题一:上面代码,第一部和第二部分开使用是可以,现在如何实现合并在一起?
我试着做下面代码,报错提示缺少运算?
Dim tbl As Table = Tables("订单")
Dim c As String = e.Form.Controls("ComboBox1").Text
Dim d As String = " " & e.Form.Controls("ComboBox2").Text & " "
Dim d1 As String = e.Form.Controls("StartDate").Text
Dim d2 As String = e.Form.Controls("EndDate").Text
Dim filter As String
Dim 符号 As String
If d = " like " Then
If tbl.Cols(c).IsString = False Then
Tables("模糊查询_订单").filter = "convert(" & c & ",'System.String')" & d & "'%" & e.Form.Controls("TextBox1").Text & "%'"
Else
Tables("模糊查询_订单").filter = c & d & "'%" & e.Form.Controls("TextBox1").Text & "%'"
End If
Else
If tbl.Cols(c).IsString Then
符号 = "'"
ElseIf tbl.Cols(c).IsDate Then
符号 = "#"
d1 = "#"
d2 = "#"
End If
Tables("订单").filter = c & d & d1 & d2 & 符号 & e.Form.Controls("TextBox1").Text & 符号
' Tables("查询").filter = c & d & 符号 & e.Form.Controls("TextBox1").Text & 符号
End If
[此贴子已经被作者于2022/5/21 21:35:09编辑过]