| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 按时段筛选数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118099) |
| -- 作者：yetle -- 发布时间：2018/4/25 9:47:00 -- 按时段筛选数据 \'#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
|
| -- 作者：有点甜 -- 发布时间：2018/4/25 9:51:00 -- Dim dt As DataTable=DataTables("报价单") Dim filter As String = "1=1"
|
| -- 作者：yetle -- 发布时间：2018/4/25 10:56:00 -- 改完之后还是有提示：\'#\' 附近有语法错误。 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 = "1=1" \'Dim filter As String If stade.text >"" Then \' filter="日期>=#" & stade.text & "#" 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() Dim fi As String If cs01.text>"" Then fi="[客户名称]=\'" & cs01.text & "\'" End If Dim dt2 As Table=Tables("报价单") dt2.Filter=fi |
| -- 作者：有点甜 -- 发布时间：2018/4/25 10:57:00 -- 把#改成单引号\'
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118072&skin=0
|