合并模式怎么自定义标题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合并模式怎么自定义标题

共有2145人关注过本帖树形打印复制链接主题：合并模式怎么自定义标题

lur320

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1032 积分：8989 威望：0 精华：0 注册：2015/8/12 16:28:00

合并模式怎么自定义标题 发帖心情

Post By：2024/1/24 17:32:00 [显示全部帖子]

此主题相关图片如下：捕获.png

如图，成本编码和成品描述是不重复的，一一对应。

在合并模式下，如何让这一行，同时带上编码和描述？

就是这里怎么写？

g = New SubtotalGroup
g.GroupOn = "成品描述"
g.TotalOn = "发货结余,待验结余"
t.SubtotalGroups.Add(g)

lur320

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1032 积分：8989 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：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

是这样吗？

但是这里查找的代码怎么写呢？这里面没有当前行或者和e代码可以找打当前对应的产品信息

[此贴子已经被作者于2024/1/24 18:03:58编辑过]

lur320

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1032 积分：8989 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：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

这样报错

lur320

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1032 积分：8989 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2024/1/24 18:25:00 [显示全部帖子]

好了，查询的地方错了

下一主题 >> << 上一主题

主题：合并模式怎么自定义标题