Dim dt As DataTable=DataTables("报价单")
Dim filter As String = "1=1"
If stade.text >"" Then
filter= filter & " and 日期>=#" & 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()