以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 同一样表加载多次会出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108365)

--  作者:2900819580
--  发布时间:2017/10/20 21:02:00
--  [求助] 同一样表加载多次会出错

Dim d1 As WinForm.DateTimePicker = e.Form.Controls("Date开始日期")
Dim d2 As WinForm.DateTimePicker = e.Form.Controls("Date结束日期")


Dim cmd As new SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "sel ect * from {订单表} where 计划交期 >= \'" & d1.Value & "\' and 计划交期 <= \'" & d2.Value & "\' And 排产单号 Is not null"
dt = cmd.ExecuteReader
Dim tb As Table = Tables(e.Form.Name & "_Table1")
tb.DataSource = dt

  老师,代码如上,如果数据多次加载进表(修改开始或结束日期时),会出现下面的错误


此主题相关图片如下:foxtable.png
按此在新窗口浏览图片

--  作者:有点蓝
--  发布时间:2017/10/20 21:10:00
--  
换其它的方式加载数据呢?

Tables(e.Form.Name & "_Table1").fill("sel ect * from {订单表} where 计划交期 >= \'" & d1.Value & "\' and 计划交期 <= \'" & d2.Value & "\' And 排产单号 Is not null","数据源",true)

或者

Tables(e.Form.Name & "_Table1").datatable.loadfilter = "计划交期 >= \'" & d1.Value & "\' and 计划交期 <= \'" & d2.Value & "\' And 排产单号 Is not null"
Tables(e.Form.Name & "_Table1").datatable.load