我知道了，你的表名不是“运作单窗口”，因为：
Tables("运作单_Table1").DataSource = g.BuildDataSource()
所以表名应该是：运作单_Table1
慎重起见，用MessageBox显示一下表名：
Dim g As New CrossTableBuilder("运作单窗口", DataTables("运作单"))
g.HGroups.AddDef("制单ID")
g.HGroups.AddDef("递交面料")
g.HGroups.AddDef("递交辅料")
g.HGroups.AddDef("递交样卡")
g.HGroups.AddDef("款号")
g.HGroups.AddDef("英文款名")
g.HGroups.AddDef("中文款名")
g.HGroups.AddDef("类别")
g.HGroups.AddDef("面辅料ID")
g.HGroups.AddDef("面辅料名称")
g.HGroups.AddDef("用于部位")
g.HGroups.AddDef("面辅料单耗")
g.HGroups.AddDef("供应来源")
g.VGroups.AddDef("颜色")
g.Totals.AddDef("配色说明", "配色说明")
Tables("运作单_Table1").DataSource = g.BuildDataSource()
MessageBox.Show(Tables("运作单_Table1").DataTable.Name)
[此贴子已经被作者于2011-5-18 8:30:12编辑过]
加好友 
发短信
Post By：2011/5/18 7:38:00 [只看该作者]
此主题相关图片如下：5.jpg