大侠们请出手相助,这段代码怎么不行了呢,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)
提示错误信息如下:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/bmp.gif)
此主题相关图片如下:lll.bmp
[此贴子已经被作者于2009-10-15 10:36:03编辑过]