Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助增加多行时很慢


  共有2567人关注过本帖树形打印复制链接

主题：求助增加多行时很慢
帅哥哟，离线，有人找我吗？
njcyt
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：4203 威望：0 精华：0 注册：2013/10/1 14:00:00 		求助增加多行时很慢  发帖心情 Post By：2015/9/11 11:29:00 [显示全部帖子]

求助增加多行时很慢
Tables("打印产品.生产编码").AddNew() '增加行
'光标定位在新增加行
If Tables("打印产品.生产编码").Current IsNot Nothing Then
    Tables("打印产品.生产编码").Select(Tables("打印产品.生产编码").Current.Index,Tables("打印产品.生产编码").Cols("产品类别").Index)
    Tables("打印产品.生产编码").StartEditing
End If

Syscmd.Row.AddNews() '增加多行
 回到顶部
帅哥哟，离线，有人找我吗？
njcyt
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：4203 威望：0 精华：0 注册：2013/10/1 14:00:00 		  发帖心情 Post By：2015/9/11 11:49:00 [显示全部帖子]

在生产编码表只有个根据日期自动编号和一个表达式列IIF([分支器] Like '空%',[姓名]+'：'+[类别代码]+'-'+[日编号],[姓名]+'：'+[分支器]+[类别代码]+'-'+[日编号])

 回到顶部
帅哥哟，离线，有人找我吗？
njcyt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：4203 威望：0 精华：0 注册：2013/10/1 14:00:00 		  发帖心情 Post By：2015/9/11 13:10:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:3部管理系统（新）.rar

编码打印窗口中的增加编码
 回到顶部
帅哥哟，离线，有人找我吗？
njcyt
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：4203 威望：0 精华：0 注册：2013/10/1 14:00:00 		  发帖心情 Post By：2015/9/11 15:28:00 [显示全部帖子]

cytjiugui

 回到顶部
帅哥哟，离线，有人找我吗？
njcyt
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：4203 威望：0 精华：0 注册：2013/10/1 14:00:00 		  发帖心情 Post By：2015/9/11 15:36:00 [显示全部帖子]

100-300

 回到顶部
帅哥哟，离线，有人找我吗？
njcyt
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：4203 威望：0 精华：0 注册：2013/10/1 14:00:00 		  发帖心情 Post By：2015/9/11 15:36:00 [显示全部帖子]

保存可以就是增加慢

 回到顶部
帅哥哟，离线，有人找我吗？
njcyt
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：4203 威望：0 精华：0 注册：2013/10/1 14:00:00 		  发帖心情 Post By：2015/9/11 15:42:00 [显示全部帖子]

另外请问下这段代码怎么优化
Dim g As New GroupTableBuilder("统计表1", DataTables("考勤表"))
g.Groups.AddDef("姓名")
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("调休单_单号1")
g.Totals.AddDef("调休单_时间1")
g.Filter = "[调休单_单号1] Is Not Null"
g.Build()


'填充
DataTables("使用统计").DataRows.Clear()  '清除
Dim f As New Filler
f.SourceTable = DataTables("统计表1") '指定数据来源
f.SourceCols = "姓名,年,月,调休单_单号1,调休单_时间1" '指定数据来源列
f.DataTable = DataTables("使用统计") '指定数据接收表
f.DataCols = "姓名,年,月,调休单号,调休时间" '指定数据接收列
f.ExcludeExistValue = True '不重复
f.Fill() '填充数据

Dim g1 As New GroupTableBuilder("统计表2", DataTables("考勤表"))
g1.Groups.AddDef("姓名")
g1.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g1.Groups.AddDef("日期", "月")
g1.Groups.AddDef("调休单_单号2")
g1.Totals.AddDef("调休单_时间2")
g1.Filter = "[调休单_单号2] Is Not Null"
g1.Build()

'填充
Dim f1 As New Filler
f1.SourceTable = DataTables("统计表2") '指定数据来源
f1.SourceCols = "姓名,年,月,调休单_单号2,调休单_时间2" '指定数据来源列
f1.DataTable = DataTables("使用统计") '指定数据接收表
f1.DataCols = "姓名,年,月,调休单号,调休时间" '指定数据接收列
f1.ExcludeExistValue = True '不重复
f1.Fill() '填充数据

Dim g2 As New GroupTableBuilder("统计表3", DataTables("考勤表"))
g2.Groups.AddDef("姓名")
g2.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g2.Groups.AddDef("日期", "月")
g2.Groups.AddDef("调休单_单号3")
g2.Totals.AddDef("调休单_时间3")
g2.Filter = "[调休单_单号3] Is Not Null"
g2.Build()

'填充
Dim f2 As New Filler
f2.SourceTable = DataTables("统计表3") '指定数据来源
f2.SourceCols = "姓名,年,月,调休单_单号3,调休单_时间3" '指定数据来源列
f2.DataTable = DataTables("使用统计") '指定数据接收表
f2.DataCols = "姓名,年,月,调休单号,调休时间" '指定数据接收列
f2.ExcludeExistValue = True '不重复
f2.Fill() '填充数据
 回到顶部
帅哥哟，离线，有人找我吗？
njcyt
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：4203 威望：0 精华：0 注册：2013/10/1 14:00:00 		  发帖心情 Post By：2015/9/11 16:10:00 [显示全部帖子]

谢谢大红袍老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询