主题：关于添加数据

pos机库存资料表DataColChanged事件，商户表同理，自己写。

    If e.DataCol.Name = "商户ID"  Then
        If e.OldValue <> Nothing Then
            For Each dr As DataRow In DataTables("商户资料表").Select("商户id = '" & e.OldValue & "'")
                dr("机具id") = Nothing
                dr("机具条码") = Nothing
            Next
        End If
    End If