后台填充 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 后台填充

共有1605人关注过本帖树形打印复制链接主题：后台填充

cbt

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：4247 威望：0 精华：0 注册：2015/5/13 8:32:00

Post By：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

cbt

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：4247 威望：0 精华：0 注册：2015/5/13 8:32:00

Post By：2016/11/10 8:42:00 [显示全部帖子]

外部数据表可以用

Insert Into 语句

内部的，就按照原来的喽！

cbt

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：4247 威望：0 精华：0 注册：2015/5/13 8:32:00

Post By：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

学习了！

下一主题 >> << 上一主题

主题：后台填充