以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  交叉统计问题困扰,请指教!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4628)

--  作者:唐尸三摆手
--  发布时间: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
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-10-15 10:36:03编辑过]

--  作者:gamtings
--  发布时间:2009/10/15 10:34:00
--  
楼主这个名字听起来有点恐怖呀!!!!图片点击可在新窗口打开查看
--  作者:yangming
--  发布时间:2009/10/15 10:37:00
--  
楼主还是上传文件测试,才知道,另外,你有什么提示吗?
--  作者:唐尸三摆手
--  发布时间:2009/10/15 10:40:00
--  
文件全部是外部查询表,而且发现同步表数据操作(也就是系统菜单“同步”)时假死
--  作者:唐尸三摆手
--  发布时间:2009/10/15 10:43:00
--  
然后就会出现上述提示
--  作者:唐尸三摆手
--  发布时间:2009/10/15 10:47:00
--  
在线等啊,他爹在不
--  作者:狐狸爸爸
--  发布时间:2009/10/15 10:49:00
--  

做个例子给我测试吧,否则我啥也看不出来


--  作者:狐狸爸爸
--  发布时间:2009/10/15 10:54:00
--  
应该是这行的问题: Syscmd.Table.load 你删除看看能否执行。
--  作者:唐尸三摆手
--  发布时间:2009/10/15 10:59:00
--  
问题应该出在同步外部数据表的命令上了,代码后面是正确的,
MainTable = Tables("wmdd")
Syscmd.Table.load
这里有问题
--  作者:唐尸三摆手
--  发布时间:2009/10/15 11:00:00
--  
删除就可以了,但是外部数据要更新如何修改这句代码,请指教!