[求助]跨表引用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

合并发送多个案件后，怎样根据这个不规则的案号，在勾选“邮寄”后，将“邮寄清单”中的数据，填入数据表的相应案件中。

此主题相关图片如下：image 1.jpg

此主题相关图片如下：image 2.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:跨表引用.table

'''
Dim str As String = "(2018)鲁01行初330、333、356-358、赔初10-12号"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(\([0-9]+\)[鲁0-9]+)|(行初[0-9\-]+)|(赔初[0-9\-]+)|([0-9\-]+)")
Dim qz As String = ""
Dim lx As String = ""
For i As Integer = 0 To mc.count-1
    Dim s As String = mc(i).value
    msgbox(s)
    If i = 0 Then
        qz = s
    Else
        If s.StartsWith("行初") Then
            lx = "行初"
            s = s.replace("行初", "")
        ElseIf s.StartsWith("赔初") Then
            lx = "赔初"
            s = s.replace("赔初", "")
        End If
        Dim ii = 0
        Dim jj = 0
        If s.Indexof("-") >= 0 Then
            ii = s.split("-")(0)
            jj = s.split("-")(1)
        Else
            ii = s
            jj = s
        End If
        For k As Integer = ii To jj
            msgbox(qz & lx & k & "号")
        Next
    End If
Next

谢谢甜老师！

还有点问题：

每个案件会在多个时间向被送达人邮寄文书，当确定邮寄后（勾选逻辑列），把当前记录的“邮寄清单”写入数据表；

上次请教过老师单元格追加的问题，这次把不规则案号邮寄的代码合并写入DataColChanged事件中，但是不同时间追加的代码不会修改，请老师帮助，谢谢！

此主题相关图片如下：aa.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:不规则案号单元格追加.table

不明白你的意思。

你要做什么操作以后，得到什么效果？

先把勾选都去掉，例子里有相同案号但不同时间的（比如，第一行和第二行）邮寄清单。

勾选第一行后，第一行的“邮寄清单“写入数据表的相同案号里；再勾选第二行（案号和第一行相同），把第二行的“邮寄清单“内容追加进刚才的单元格。

If e.DataCol.Name = "邮寄" Then '如果内容发生变动的是品名列
    '’If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
    'e.DataRow("邮寄清单") = Nothing '那么清空此行单价列的内容
    'Else
    Dim str As String = e.DataRow("案号")
    Dim drs = e.DataTable.Select("案号='" & str & "' and 邮寄 = true", "收寄日期")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(\([0-9]+\)[鲁0-9]+)|(行初[0-9\-]+)|(赔初[0-9\-]+)|(行终[0-9\-]+)|([0-9\-]+)")
    Dim qz As String = ""
    Dim lx As String = ""
    For i As Integer = 0 To mc.count-1
        Dim s As String = mc(i).value
        'msgbox(s)
        If i = 0 Then
            qz = s
        Else
            If s.StartsWith("行初") Then
                lx = "行初"
                s = s.replace("行初", "")
            ElseIf s.StartsWith("赔初") Then
                lx = "行赔初"
                s = s.replace("赔初", "")
            ElseIf s.StartsWith("行终") Then
                lx = "行终"
                s = s.replace("行终", "")
            End If
            Dim ii = 0
            Dim jj = 0
            If s.Indexof("-") >= 0 Then
                ii = s.split("-")(0)
                jj = s.split("-")(1)
            Else
                ii = s
                jj = s
            End If
            For k As Integer = ii To jj
                'msgbox(qz & lx & k & "号")
                Dim dr1 As DataRow
                dr1 = DataTables("数据表").Find("[案号] = '" & qz & lx & k & "号" & "'")
                If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
                    Dim ls As new List(of String)
                    For Each cdr As DataRow In drs
                        For Each l As String In cdr.lines("邮寄清单")
                            If ls.Contains(l) = False Then
                                ls.Add(l)
                            End If
                        Next
                    Next
                    dr1.lines("邮寄清单") = ls
                End If
            Next
        End If
    Next
End If

主题：[求助]跨表引用