主题：[求助]添加

 老师好，我想把当前表的列行的单元格中的字段添加到另外表的列中该列中的字段不充分（无条件添加）

老师，我不要根据逻辑列来复制摘要字段。如果摘要列输入字段列表项目表的摘要列就添加该字段列表项目表禁止重复。



，If e.DataCol.Name = "审核" AndAlso e.DataRow("审核") = True Then
    Dim nma() As String = {"摘要"} 'A表数据来源列
    Dim nmb() As String = {"摘要"} 'B表数据接收列
    Dim dr As DataRow = DataTables("列表项目").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

 老师，没有关联列。这样可以吗？
Select Case e.DataCol.name
    Case "_Identify"
        Dim dr As DataRow = DataTables("列表项目").Find("_Identify = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("列表项目").AddNew()
            dr("摘要") = e.DataRow("摘要")
           
        Else
            dr("_Identify") = e.DataRow("_Identify")
        End If
    Case "摘要","摘要"
        Dim dr As DataRow = DataTables("列表项目").Find("_Identify = '" & e.DataRow("_Identify") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

此主题相关图片如下：图像 123.png