表A的DataColChanged代码 If e.DataCol.Name = "逻辑列" AndAlso e.DataRow("逻辑列") = True Then Dim dr As DataRow = DataTables("表B").AddNew For Each dc As DataCol In DataTables("表B").DataCols dr(dc.Name) = e.DataRow(dc.Name) Next Tables("表A").Current.Delete End If
加好友 
发短信
Post By：2012/9/28 9:49:00 [显示全部帖子]
