以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  临时表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59804)

--  作者:tina2012
--  发布时间:2014/11/11 14:20:00
--  临时表

如何将数据库中数据添加到临时表?

Dim conStart As WinForm.DateTimePicker = e.Form.Controls("DateTimeStart")
Dim conEnd As WinForm.DateTimePicker = e.Form.Controls("DateTimeEnd")
For Each dr1 As DataRow In DataTables("Sales_Order_List").Select("CustomerId=\'115\'")\'在时间表中选择符合条件范围的时间("SubmitDate >= #" & conStart.text & "# And SubmitDate <= #" & conEnd.text & "#")\'
    Dim dr2 As DataRow = DataTables("TempTime").AddNew()\'新添加一行
    For Each dc1 As DataCol In DataTables("Sales_Order_List").DataCols
    dr2("Id") = dr1("Id")
    dr2("CCustomerId") = dr1("CustomerId")
   dr2("CSubmitId") = dr1("SubmitUser")
    dr2("CSubmitDate") = dr1("SubmitDate")
    Next
Next

这样的代码预览完全没有数据,但是打印的话是有数据的,就是数据库中肯定有这条记录


--  作者:有点甜
--  发布时间:2014/11/11 14:21:00
--  

 没有数据,就是你的条件不对

 

DataTables("Sales_Order_List").Select("CustomerId=\'115\'")


--  作者:Bin
--  发布时间:2014/11/11 14:22:00
--  
).Select("CustomerId=\'115\'")

没有符合这个条件的吧