当基础表“标志”列内数据相同的行，写入一行标志到合并表，并且把基础表内“标志”列相同的行的“备注”合并到刚才写入到合并表的行的备注内!!!

谢谢

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

点击浏览该文件:管理项目1.table

哈哈，六尾狐提这样的问题，好像有点太哪个了。

\'基础表DataColChanged事件
If e.DataCol.Name = "标志" Then
    If e.DataRow.IsNull("标志") = False Then
        Dim dr As DataRow = DataTables("合并表").Find("标志 = \'" & e.NewValue & "\'")
        If dr Is Nothing Then
            Dim r As Row = Tables("合并表").AddNew
            r("标志") = e.NewValue
        Else
            dr("备注") = DataTables("基础表").GetComboListString("备注","[标志] = \'" & e.DataRow("标志") & "\'").Replace("|",",")
        End If
    End If
End If

还是留着你慢慢折腾吧。

如果实在不会写，将二楼的代码放到表事件中，在窗口写个重置列总会吧。