以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  序列号怎么根据其他列的相同内容而自动合并  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151355)

--  作者:往年初夏
--  发布时间:2020/6/21 21:06:00
--  序列号怎么根据其他列的相同内容而自动合并
如下图,序列号如何根据相同的单号来自动合并,然后填充正确的数字来表示订单数量?

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200621210425.png
图片点击可在新窗口打开查看
合并后实现下图效果!

图片点击可在新窗口打开查看此主题相关图片如下:360截图20200622083732694.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/6/22 8:38:14编辑过]

--  作者:有点蓝
--  发布时间:2020/6/21 21:49:00
--  
没看懂,填充后的结果是怎么样的?手工填写截图看看
--  作者:往年初夏
--  发布时间:2020/6/22 8:38:00
--  
谢谢,已更新问题
--  作者:有点蓝
--  发布时间:2020/6/22 8:53:00
--  
datacolchanged事件

If e.DataCol.Name = "单号" Then
    If e.DataRow.IsNull("单号") Then
        e.DataRow("序号") = Nothing
    Else
        Dim dr As DataRow = e.DataTable.find("单号=\'" & e.DataRow("单号") & "\' and _Identify <>" & e.DataRow("_Identify"))
        If dr Is Nothing Then
            e.DataRow("序号") = e.DataTable.GetValues("单号=\'" & e.DataRow("单号") & "\'").count
        Else
            e.DataRow("序号") = dr("序号")
        End If
    End If
End If

--  作者:往年初夏
--  发布时间:2020/6/22 12:49:00
--  
我刚用FOXTABLE不懂代码,也找不到输代码的地方
--  作者:有点蓝
--  发布时间:2020/6/22 13:37:00
--  
参考:http://www.foxtable.com/webhelp/topics/1445.htm

那就先学一下基础部分吧:http://www.foxtable.com/webhelp/topics/1592.htm

--  作者:往年初夏
--  发布时间:2020/6/22 13:53:00
--  
好的,我研究研究,谢谢