Foxtable(狐表)用户栏目专家坐堂 → [求助] 这个合并表代码的错误找不到……


  共有5300人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jiskin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:5207 威望:0 精华:0 注册:2012/4/13 13:10:00
[求助] 这个合并表代码的错误找不到……  发帖心情 Post By:2013/6/9 16:08:00 [显示全部帖子]

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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
jiskin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:5207 威望:0 精华:0 注册:2012/4/13 13:10:00
  发帖心情 Post By:2013/6/9 16:17:00 [显示全部帖子]

以下是引用Bin在2013-6-9 16:09:00的发言:
上例子看看,纸上谈兵没什么用.

 

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.rar


 回到顶部
帅哥哟,离线,有人找我吗?
jiskin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:5207 威望:0 精华:0 注册:2012/4/13 13:10:00
  发帖心情 Post By:2013/6/9 16:28:00 [显示全部帖子]

以下是引用Bin在2013-6-9 16:27:00的发言:
db1 = cmd1.ExecuteReader()
db2 = cmd1.ExecuteReader()
db3 = cmd1.ExecuteReader() 你这什么呀..全都是CMD1的返回值.当然报错了.

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


 回到顶部
帅哥哟,离线,有人找我吗?
jiskin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:5207 威望:0 精华:0 注册:2012/4/13 13:10:00
  发帖心情 Post By:2013/6/9 16:41:00 [显示全部帖子]

以下是引用Bin在2013-6-9 16:27:00的发言:
db1 = cmd1.ExecuteReader()
db2 = cmd1.ExecuteReader()
db3 = cmd1.ExecuteReader() 你这什么呀..全都是CMD1的返回值.当然报错了.

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
jiskin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:5207 威望:0 精华:0 注册:2012/4/13 13:10:00
  发帖心情 Post By:2013/6/9 16:42:00 [显示全部帖子]

以下是引用jspta在2013-6-9 16:26:00的发言:
db1 = cmd1.ExecuteReader()
db2 = cmd2.ExecuteReader()
db3 = cmd3.ExecuteReader()

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
jiskin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:5207 威望:0 精华:0 注册:2012/4/13 13:10:00
  发帖心情 Post By:2013/6/9 16:51:00 [显示全部帖子]

以下是引用Bin在2013-6-9 16:45:00的发言:
代码最后面加一句 Tables("统计表").Cols("物料去向").Move(Tables("统计表").Cols("物料去向").Index-1)

 

非常感谢!


 回到顶部