[浏览完整版]
标题：交叉统计问题困扰，请指教！
1楼
唐尸三摆手 发表于：2009/10/15 10:32:00大侠们请出手相助，这段代码怎么不行了呢，10月11日更新之前还好好的
MainTable = Tables("wmdd")
Syscmd.Table.load
Dim g As New CrossTableBuilder("tj01", DataTables("wmdd"), "[部门编码]='0148'and [排产日期] >= #2009-10-01#")
g.HGroups.AddDef("分类编码")
g.HGroups.AddDef("分类名称")
g.VGroups.AddDef("排产日期", DateGroupEnum.None)
g.Totals.AddDef("计划数量", "计划数量")
g.OrderByTotal = True
g.HorizontalTotal = True
g.Filter = "[部门编码]='0148'and [排产日期] >= #2009-10-01#"
g.Build()
MainTable = Tables("tj01")
For Each cl As Col In CurrentTable.Cols
cl.Width = 42
Next
CurrentTable.Cols(1).Width =155
CurrentTable.Cols.Frozen = 2
Syscmd.Table.ChangeAlterBackColor(Color.Beige)
Syscmd.Table.ChangeGridLineColor(Color.gray)
提示错误信息如下：
此主题相关图片如下：lll.bmp
MainTable = Tables("wmdd")
Syscmd.Table.load
Dim g As New CrossTableBuilder("tj01", DataTables("wmdd"), "[部门编码]='0148'and [排产日期] >= #2009-10-01#")
g.HGroups.AddDef("分类编码")
g.HGroups.AddDef("分类名称")
g.VGroups.AddDef("排产日期", DateGroupEnum.None)
g.Totals.AddDef("计划数量", "计划数量")
g.OrderByTotal = True
g.HorizontalTotal = True
g.Filter = "[部门编码]='0148'and [排产日期] >= #2009-10-01#"
g.Build()
MainTable = Tables("tj01")
For Each cl As Col In CurrentTable.Cols
cl.Width = 42
Next
CurrentTable.Cols(1).Width =155
CurrentTable.Cols.Frozen = 2
Syscmd.Table.ChangeAlterBackColor(Color.Beige)
Syscmd.Table.ChangeGridLineColor(Color.gray)
提示错误信息如下：
此主题相关图片如下：lll.bmp[此贴子已经被作者于2009-10-15 10:36:03编辑过]
2楼
gamtings 发表于：2009/10/15 10:34:00楼主这个名字听起来有点恐怖呀！！！！
3楼
yangming 发表于：2009/10/15 10:37:00楼主还是上传文件测试,才知道,另外,你有什么提示吗?
4楼
唐尸三摆手 发表于：2009/10/15 10:40:00文件全部是外部查询表，而且发现同步表数据操作（也就是系统菜单“同步”）时假死
5楼
唐尸三摆手 发表于：2009/10/15 10:43:00然后就会出现上述提示
6楼
唐尸三摆手 发表于：2009/10/15 10:47:00在线等啊，他爹在不
7楼
狐狸爸爸 发表于：2009/10/15 10:49:00做个例子给我测试吧,否则我啥也看不出来
8楼
狐狸爸爸 发表于：2009/10/15 10:54:00应该是这行的问题:
Syscmd.Table.load
你删除看看能否执行。
9楼
唐尸三摆手 发表于：2009/10/15 10:59:00问题应该出在同步外部数据表的命令上了，代码后面是正确的，
MainTable = Tables("wmdd")
Syscmd.Table.load
这里有问题
MainTable = Tables("wmdd")
Syscmd.Table.load
这里有问题
10楼
唐尸三摆手 发表于：2009/10/15 11:00:00删除就可以了，但是外部数据要更新如何修改这句代码，请指教！