主题：按时段筛选数据

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()

把#改成单引号'

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118072&skin=0