Foxtable(狐表) → 用户栏目 → 专家坐堂 → 副本表统计


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

主题：副本表统计
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		副本表统计  发帖心情 Post By：2011/7/14 16:18:00 [显示全部帖子]

  我在窗口有一张表,为副本表,我利用Tables("窗口1_Table1").DataSource = DataTables("订单明细")切换表.我想问的是如果我切换到订单明细时,我想利用

Dim t As Table = Tables("订单明细")
            Dim g As Subtotalgroup
            t.SubtotalGroups.Clear()
            t.GroupAboveData = False
            t.TreeVisible = False
            t.SpillNode = True
            
            g = New Subtotalgroup
            g.Aggregate = AggregateEnum.Sum
            g.GroupOn = "*"
            g.TotalOn = "尺码1,尺码2,尺码3,尺码4,尺码5,尺码6,尺码7,尺码8,TOTAL"
            g.Caption = "总计"
            t.SubtotalGroups.Add(g)
            
            g = New Subtotalgroup
            g.Aggregate = AggregateEnum.Sum
            g.GroupOn = "色号"
            g.TotalOn = "尺码1,尺码2,尺码3,尺码4,尺码5,尺码6,尺码7,尺码8,TOTAL"
            g.Caption = "{0} 小计"
            t.SubtotalGroups.Add(g)
            t.Subtotal()
做订单明细的合计.

切换到装箱单:
Dim t1 As Table = Tables("装箱单")
            Dim g1 As Subtotalgroup
            t1.SubtotalGroups.Clear()
            t1.GroupAboveData = False
            t1.TreeVisible = False
            t1.SpillNode = True
            
            g1 = New Subtotalgroup
            g1.Aggregate = AggregateEnum.Sum
            g1.GroupOn = "*"
            g1.TotalOn = "箱数,尺码1,尺码2,尺码3,尺码4,尺码5,尺码6,尺码7,尺码8,总件数"
            g1.Caption = "总计"
            t1.SubtotalGroups.Add(g1)
            
            g1 = New Subtotalgroup
            g1.Aggregate = AggregateEnum.Sum
            g1.GroupOn = "色号"
            g1.TotalOn = "箱数,总件数,尺码1,尺码2,尺码3,尺码4,尺码5,尺码6,尺码7,尺码8"
            g1.Caption = "{0} 小计"
            t1.SubtotalGroups.Add(g1)
            t1.Subtotal()
做装箱单的合计.

代码怎么合成?
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/7/14 16:32:00 [显示全部帖子]

是这样的.没想到.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/7/14 17:04:00 [显示全部帖子]

为什么是这样的呢,帮助里面没有看见.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/7/14 17:15:00 [显示全部帖子]

唉,还是灵活应用有很大问题,语文没有学好.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/7/15 9:22:00 [显示全部帖子]

还想问一下,副本表的下拉窗口怎样才能使用?我已经在项目事件里设置了:

Tables("订箱单").Cols("纸制品编号").DropForm = "纸箱价目表"

窗口表里我用这个代码切换:

Tables("窗口1_Table1").DataSource = DataTables("辅料明细")

但是切换后我不能使用,几个方法我都试了.
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/7/15 10:10:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-7-15 9:23:00的发言：
切换后，重新设置dropform属性。

 怎么设置?在哪儿设置
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/7/15 10:32:00 [显示全部帖子]

哦,谢谢!

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/7/15 14:13:00 [显示全部帖子]

Dim tbl As Table = Tables("辅料价目表_Table1")
    If tbl.Current IsNot Nothing Then
        If Tables("控制_Table1").DataTable.Name = "辅料明细" Then
            Dim r As Row = Tables("辅料明细").AddNew()
            r("IO") = Forms("控制").Controls("TextBox1").text
            Tables("辅料明细").Current("辅料编号") = tbl.Current("辅料编号") 和Tables("控制_table1").Current("辅料编号") = tbl.Current("辅料编号") 
  

都不起作用,代码怎么改?
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/7/15 15:00:00 [显示全部帖子]

If Forms("控制").opened Then
    Dim DST1 As DataRow = CurrentTable.Current.DataRow
    If e.Table.name = "辅料价目表_Table1" Then
        If CurrentTable.Current IsNot Nothing Then
           
            Dim r As Row = Tables("辅料明细").AddNew()
            r("IO") = Forms("控制").Controls("TextBox1").text
            Forms("辅料价目表").DropDownBox.Value = dst1("辅料编号")
            r("辅料名称") = dst1("辅料名称")
            r("供应商编号") = dst1("客户编号")
            r("供应商名称") = dst1("客户名称")
            r("商标") = dst1("商标")
            r("颜色") = dst1("颜色")
            r("规格") = dst1("规格")
            r("尺码") = dst1("尺码")
            r("门幅") = dst1("门幅")
            r("单耗") = dst1("单耗")
            r("单价") = dst1("单价")
            r("单位") = dst1("单位")
            
        End If
    End If
    Forms("辅料价目表").DropDownBox.CloseDropDown()
    DataTables("辅料明细").DeleteFor("[辅料编号] Is Null")
End If

     这个也不行.
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/7/15 15:38:00 [显示全部帖子]

If Forms("控制").opened Then
    Dim tbl As Table = Tables("辅料价目表_Table1")
    If Tables("控制_Table1").DataTable.Name = "辅料明细" Then
        Dim r As Row = Tables("控制_Table1").AddNew()
        r("IO") = Forms("控制").Controls("TextBox1").text
        Forms("辅料价目表").DropDownBox.Value = tbl("辅料编号")
        'Tables("控制_Table1").Current("辅料编号") = tbl("辅料编号")
        Tables("控制_Table1").Current("辅料名称") = tbl("辅料名称")
        Tables("控制_Table1").Current("供应商编号") = tbl("客户编号")
        Tables("控制_Table1").Current("供应商名称") = tbl("客户名称")
        Tables("控制_Table1").Current("商标") = tbl("商标")
        Tables("控制_Table1").Current("颜色") = tbl("颜色")
        Tables("控制_Table1").Current("规格") = tbl("规格")
        Tables("控制_Table1").Current("尺码") = tbl("尺码")
        Tables("控制_Table1").Current("门幅") = tbl("门幅")
        Tables("控制_Table1").Current("单耗") = tbl("单耗")
        Tables("控制_Table1").Current("单价") = tbl("单价")
        Tables("控制_Table1").Current("单位") = tbl("单位")
    End If
    Forms("辅料价目表").DropDownBox.CloseDropDown()
    DataTables("辅料明细").DeleteFor("[辅料编号] Is Null")
End If

 改成这样后,出错!

图片点击可在新窗口打开查看此主题相关图片如下：$3xp~~t4smnm`3soj56@7w.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 5 次数据查询