主题：[求助]单元格追加

在“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

 

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


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

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

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

谢谢老师！

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

 

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