以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合并模式怎么自定义标题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190224)
--  作者：lur320
--  发布时间：2024/1/24 17:32:00
--  合并模式怎么自定义标题
 
图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
如图，成本编码和成品描述是不重复的，一一对应。
在合并模式下，如何让这一行，同时带上编码和描述？
就是这里怎么写？
g = New SubtotalGroup
g.GroupOn = "成品描述"
g.TotalOn = "发货结余,待验结余"
t.SubtotalGroups.Add(g)
--  作者：有点蓝
--  发布时间：2024/1/24 17:34:00
--  
参考：http://www.foxtable.com/webhelp/topics/1964.htm
--  作者：lur320
--  发布时间：2024/1/24 18:03:00
--  
 For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup \'如果是分组行
     dim dr as datarow = currenttable.datatable.find....
    End If
Next

是这样吗？
但是这里查找的代码怎么写呢？这里面没有当前行或者和e代码可以找打当前对应的产品信息
[此贴子已经被作者于2024/1/24 18:03:58编辑过]
--  作者：lur320
--  发布时间：2024/1/24 18:12:00
--  
 For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i, True)
    If r.IsGroup Then
        r("total结余") = r("发货结余") + r("待验结余")
       
    End If
     If r.level = 1 Then
         Dim dr As DataRow = CurrentTable.DataTable.Find("成品编码=\'" & r("成品编码") & "\'")
         If dr IsNot Nothing Then
             
       r("成品编码")= r("成品编码") & dr("成品描述")
       End if
    End If
Next

这样报错
--  作者：lur320
--  发布时间：2024/1/24 18:25:00
--  
 好了，查询的地方错了