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

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

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

zhangxl1964

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

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

后台填充

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

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

加好友

发短信

等级：二尾狐帖子：569 积分：4210 威望：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

zhangxl1964

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

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2016/11/10 8:05:00 [只看该作者]

是固定表

cbt

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

加好友

发短信

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

Post By：2016/11/10 8:42:00 [只看该作者]

外部数据表可以用

Insert Into 语句

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

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

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

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

加好友

发短信

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

Post By：2016/11/10 9:05:00 [只看该作者]

以下是引用有点色在2016/11/10 8:47:00的发言：

dt.save

学习了！

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

主题：后台填充