Foxtable(狐表)用户栏目专家坐堂 → [求助]组合两个统计表时出问题


  共有8044人关注过本帖平板打印复制链接

主题:[求助]组合两个统计表时出问题

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


加好友 发短信
等级:幼狐 帖子:133 积分:1199 威望:0 精华:0 注册:2012/4/18 9:54:00
[求助]组合两个统计表时出问题  发帖心情 Post By:2013/3/12 11:35:00 [只看该作者]

我在组合两个统计报表时出现如下问题,请大侠给点帮助,谢谢!!

 

If s > ""  And  s1 > ""   Then
   
    Dim d1 As Date =Forms("月报表2").Controls("DateTimePicker1").value
    Dim d2 As Date =Forms("月报表2").Controls("DateTimePicker2").value
    Dim sql0 As String = "Select  * FROM {日常废品录入} where {日常废品录入}.录入时间 between '"  & d1  & "' and '" & d2 & "' and {日常废品录入}.生产线f in (" & s & ") and substring({日常废品录入}.材质规格f,1,2) in (" & s1 & ") and {日常废品录入}.发生工序 <> '成工退废' and {日常废品录入}.发生工序 <> '长征退废' "
   
    Dim b As New CrossTableBuilder("统计表1",sql0, "yun")
    b.HGroups.AddDef("货品编号")
    b.VGroups.AddDef("废品原因","内废原因_{0}")
    b.Totals.AddDef("废品数量")
    b.HorizontalTotal = True
    b.VerticalTotal = True
    b.Filter = "[废品原因]<> '回用'"
    Dim dt As fxDataSource
    b.FromServer = True
    dt=b.BuildDataSource()
    MessageBox.Show("1")
    Dim sql2 As String = "Select  * FROM {日常废品录入} where {日常废品录入}.录入时间 between '"  & d1  & "' and '" & d2 & "' and {日常废品录入}.生产线f in (" & s & ") and substring({日常废品录入}.材质规格f,1,2) in (" & s1 & ") and {日常废品录入}.发生工序 = '成工退废' or {日常废品录入}.发生工序 = '长征退废' "
    Dim e11 As New CrossTableBuilder("统计表5",sql2, "yun")
    e11.HGroups.AddDef("货品编号")
    e11.VGroups.AddDef("废品原因","外废原因_{0}")
    e11.Totals.AddDef("废品数量")
    e11.HorizontalTotal = True
    e11.VerticalTotal = True
    e11.Filter = "[废品原因] <> '回用'"
    Dim dt3 As fxDataSource
    e11.FromServer = True
    dt3=e11.BuildDataSource()
    MessageBox.Show("2")
  dt2.Combine("货品编号",dt3,"货品编号")


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

 回到顶部
总数 11 1 2 下一页