- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助增加多行时很慢 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74453)
-- 发布时间：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() \'增加多行
-- 发布时间：2015/9/11 11:32:00
--
执行上面的代码慢？
不会慢的，看一下你DataRowAdding或者DataRowAdded是否写了什么代码
-- 发布时间：2015/9/11 11:49:00
--
在生产编码表只有个根据日期自动编号和一个表达式列IIF([分支器] Like \'空%\',[姓名]+\'：\'+[类别代码]+\'-\'+[日编号],[姓名]+\'：\'+[分支器]+[类别代码]+\'-\'+[日编号])
-- 发布时间：2015/9/11 12:31:00
--
上传可测试慢的项目
-- 发布时间：2015/9/11 13:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:3部管理系统（新）.rar |
编码打印窗口中的增加编码
-- 发布时间：2015/9/11 14:53:00
--
密码发上来啊
-- 发布时间：2015/9/11 15:28:00
--
cytjiugui
-- 发布时间：2015/9/11 15:36:00
--
100-300
-- 发布时间：2015/9/11 15:36:00
--
保存可以就是增加慢
-- 发布时间：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() \'填充数据