主题：[求助] 这个合并表代码的错误找不到……

Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim cmd3 As New SQLCommand
cmd1.C
cmd2.C
cmd3.C
Dim db1 As DataTable
Dim db2 As DataTable
Dim db3 As DataTable
cmd1.CommandText = "SELECT [_Identify],[库存类别],[品名],[零件号],[储位] From {库存总表}"
cmd2.CommandText = "Select [_Identify],[入库日期],[零件号],[入库数量] From {入库表}"
cmd3.CommandText = "Select [_Identify],[出库日期],[零件号],[出库数量],[物料去向] From {出库表}"
db1 = cmd1.ExecuteReader()
db2 = cmd1.ExecuteReader()
db3 = cmd1.ExecuteReader()
Dim y As Integer = 2013 '指定年份
Dim m As Integer = 5 '指定月份
Dim ds1 As New Date(y, m, 1)
Dim ds2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
Dim bd1 As New GroupTableBuilder("库存统计表",db1)
Dim dt1 As fxDataSource
bd1.Groups.AddDef("库存类别")
bd1.Groups.AddDef("品名")
bd1.Groups.AddDef("零件号")
bd1.Groups.AddDef("储位")
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("入库统计表",db2)
Dim dt2 As fxDataSource
bd2.Groups.AddDef("零件号")
bd2.Totals.AddDef("入库数量")
bd2.Filter = "入库日期 >= #" & ds1 & "# And 入库日期 <= #" & ds2 & "#"
dt2 = bd2.BuildDataSource()
Dim bd3 As New GroupTableBuilder("出库统计表",db3)
Dim dt3 As fxDataSource
bd3.Groups.AddDef("物料去向")
bd3.Groups.AddDef("零件号")
bd3.Totals.AddDef("出库数量")
bd3.Filter = "出库日期 >= #" & ds1 & "# And 出库日期 <= #" & ds2 & "#"
dt3 = bd3.BuildDataSource()
dt1.Combine("零件号",dt2,"零件号")
dt1.Combine("零件号",dt3,"零件号")
dt1.show("统计表")

 

 

在dt2 = bd2.BuildDataSource()的时候报这个错：但是我有这个数据列的

此主题相关图片如下：qq截图20130609155455.png

 

 

dt2 = bd2.BuildDataSource()的时候报这个错：

此主题相关图片如下：qq截图20130609155509.png

 

 

dt1.Combine("零件号",dt2,"零件号")的时候 这个错：

此主题相关图片如下：qq截图20130609160733.png

上例子看看,纸上谈兵没什么用.

 

献上简单例子，请帮忙看下~

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.rar

db1 = cmd1.ExecuteReader()
db2 = cmd2.ExecuteReader()
db3 = cmd3.ExecuteReader()

擦 犯低级错误了 拷贝后没改~~擦擦擦

 

BIN大哥，我生成的统计表中 “物料去向”的列位置想自动在 “入库数量” 前面 要怎么写? 目前生成的表在 “入库数量”列和“出库数量”列中间

 

多谢~~  复制粘贴 太粗心啦我

代码最后面加一句 Tables("统计表").Cols("物料去向").Move(Tables("统计表").Cols("物料去向").Index-1)

 

非常感谢！