datacolchanged事件:
Dim dr As DataRow = DataTables("表A").DataRows(0)Dim kk As String = dr("第一列")If e.DataCol.name = "第一列" Then For Each dr1 As DataRow In DataTables("表A").DataRows dr1("第一列") = kk NextEnd If