主题：当基础表“标志”列内数据相同时，合并到合并表？谢谢

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

'基础表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

还是留着你慢慢折腾吧。

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