'#and' 附近有语法错误。
Dim stade As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim Endde As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim pd01 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim cs01 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dt As DataTable=DataTables("报价单")
Dim filter As String
If stade.text >"" Then
filter="日期>=#" & stade.text & "#"
Else
MessageBox.show("请选择开始日期!")
Return
End If
If Endde.text>"" Then
filter=filter & "and 日期<=#" & Endde.text & "#"
Else
MessageBox.show("请选择结束日期!")
Return
End If
dt.LoadFilter=filter
dt.Load()
Dim fi As String
If cs01.text>"" Then
fi="[客户名称]='" & cs01.text & "'"
End If
Dim dt2 As Table=Tables("报价单")
dt2.Filter=fi
加好友 
发短信
Post By：2018/4/25 9:47:00 [显示全部帖子]
