在“EMS编辑”表中一个案号，存在多个时间点的邮寄事项，见图1；

希望将多个不同时间的[邮寄清单]追加写入“数据表”，见图2。

---------------

问题：

1、“EMS编辑”表的双击事件代码，设置了区别列的代码，但没起作用，现在双击时对所有列都起作用，代码如下；

For Each c As Col In Tables("EMS编辑").Cols    
    If c.name.StartsWith("文书类别_") = True Then
        e.Row(CurrentTable.Cols(CurrentTable.ColSel).name) = "√"
    End If
Next

2、怎样将多个不同时间的[邮寄清单]写入“数据表”的[送达清单]，代码写了一部分，请老师指教，谢谢！

Select Case e.DataCol.Name   \'写入数据表
    Case "案号"
        Dim dr1 As DataRow
        If e.OldValue = Nothing Then
            dr1 = DataTables("数据表").Find("[案号] = \'" & e.NewValue & "\'")
        Else
            dr1 = DataTables("数据表").Find("[案号] = \'" & e.oldvalue & "\'")
        End If
    Case "案号","邮寄清单"
        Dim dr1 = DataTables("数据表").Find("[案号] = \'" & e.DataRow("案号") & "\'")
        If dr1 IsNot Nothing Then
            dr1("案号") = e.DataRow("案号")
            dr1("送达清单") = e.DataRow("邮寄清单")
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:单元格追加.table

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "文书类别_受理案件通知书","文书类别_起诉或反诉状副本","文书类别_答辩状副本","文书类别_举证通知书","文书类别_传票","文书类别_出庭通知书","文书类别_其他2","文书类别_其他1"
        Dim dr1 = DataTables("数据表").Find("[案号] = \'" & e.DataRow("案号") & "\'")
        If dr1 IsNot Nothing Then
            Dim str As String = ""
            For Each dr In e.DataTable.Select("[案号] = \'" & e.DataRow("案号") & "\'", "收寄日期")
                dr("邮寄清单") = IIF(dr.IsNull("文书类别_受理案件通知书"),"",dr("收寄日期") & "受理案件通知书" + vbcrlf)
                dr("邮寄清单") += IIF(dr.IsNull("文书类别_起诉或反诉状副本"),"",dr("收寄日期") & "起诉或反诉状副本" + vbcrlf)
                dr("邮寄清单") += IIF(dr.IsNull("文书类别_答辩状副本"),"",dr("收寄日期") & "答辩状副本" + vbcrlf)
                dr("邮寄清单") += IIF(dr.IsNull("文书类别_举证通知书"),"",dr("收寄日期") & "举证通知书" + vbcrlf)
                dr("邮寄清单") += IIF(dr.IsNull("文书类别_传票"),"",dr("收寄日期") & "传票" + vbcrlf)
                dr("邮寄清单") += IIF(dr.IsNull("文书类别_出庭通知书"),"",dr("收寄日期") & "出庭通知书" + vbcrlf)
                dr("邮寄清单") += IIF(dr.IsNull("文书类别_其他1"),"",dr("收寄日期") & dr("文书类别_其他1")+vbcrlf)
                dr("邮寄清单") += IIF(dr.IsNull("文书类别_其他2"),"",dr("收寄日期") & dr("文书类别_其他2")+vbcrlf)
                dr("邮寄清单") = dr("邮寄清单").trimend(vbcrlf)
                str &= dr("邮寄清单")
            Next
            dr1("送达清单") = str
        End If
End Select

\'-----------------------
Select Case e.DataCol.Name   \'写入数据表
    Case "案号"
        Dim dr1 As DataRow
        If e.OldValue = Nothing Then
            dr1 = DataTables("数据表").Find("[案号] = \'" & e.NewValue & "\'")
        Else
            dr1 = DataTables("数据表").Find("[案号] = \'" & e.oldvalue & "\'")
        End If
End Select

谢谢老师！

再帮忙看看第一个问题，为什么代码没在特定列起作用？

1、“EMS编辑”表的双击事件代码，设置了区别列的代码，但没起作用，现在双击时对所有列都起作用，代码如下：

For Each c As Col In Tables("EMS编辑").Cols    
    If c.name.StartsWith("文书类别_") = True Then
        e.Row(CurrentTable.Cols(CurrentTable.ColSel).name) = "√"
    End If
Next