以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  后台填充  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92669)
--  作者：zhangxl1964
--  发布时间：2016/11/10 7:50:00
--  后台填充
老师：你好！

        跨表统计的数据能否从后台填充？
        
       Dim Vals As List(of String())

     Vals = DataTables("来源表").GetValues("产品|客户")
     For i As Integer = 0 To Vals.Count - 1
     Dim dr As DataRow = DataTables("接收表").AddNew()
     dr("产品") = Vals(i)(0)
     dr("客户") = Vals(i)(1)
     Next

     DataTables("接收表").AddNew() 能否改成后台增加？如何实现？
--  作者：cbt
--  发布时间：2016/11/10 8:03:00
--  
 统计的是 临时表 吧？你可以先把他停止绘制，速度会比较快！

Tables("接收表").StopRedraw

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

Tables("接收表").ResumeRedraw
--  作者：zhangxl1964
--  发布时间：2016/11/10 8:05:00
--  
是固定表
--  作者：cbt
--  发布时间：2016/11/10 8:42:00
--  
外部数据表可以用

Insert Into 语句


内部的，就按照原来的喽！
--  作者：有点色
--  发布时间：2016/11/10 8:47:00
--  

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
Dim cmd As new sqlcommand
cmd.CommandText = "select * from {接收表} where 1=2"
Dim dt As DataTable = cmd.ExecuteReader(True)
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = dt.AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

dt.save
--  作者：cbt
--  发布时间：2016/11/10 9:05:00
--  
以下是引用有点色在2016/11/10 8:47:00的发言：

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
Dim cmd As new sqlcommand
cmd.CommandText = "select * from {接收表} where 1=2"
Dim dt As DataTable = cmd.ExecuteReader(True)
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = dt.AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

dt.save






学习了！