共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：合并模式怎么自定义标题
1楼
lur320 发表于：2024/1/24 17:32:00
此主题相关图片如下：捕获.png
如图，成本编码和成品描述是不重复的，一一对应。
在合并模式下，如何让这一行，同时带上编码和描述？
就是这里怎么写？
g = New SubtotalGroup
g.GroupOn = "成品描述"
g.TotalOn = "发货结余,待验结余"
t.SubtotalGroups.Add(g)
g.GroupOn = "成品描述"
g.TotalOn = "发货结余,待验结余"
t.SubtotalGroups.Add(g)
2楼
有点蓝 发表于：2024/1/24 17:34:003楼
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
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编辑过]
4楼
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
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
这样报错
5楼
lur320 发表于：2024/1/24 18:25:00 好了，查询的地方错了
共5 条记录, 每页显示 10 条, 页签:
[1]