Select Case e.DataCol.name
Case "第一列"
If DataTables.Contains(e.NewValue) Then
Dim dr As DataRow = DataTables(e.NewValue).Find("第一列 = '" & e.NewValue & "'")
If dr Is Nothing Then
dr = DataTables(e.NewValue).AddNew
dr("第一列") = e.NewValue
End If
dr("第二列") = e.DataRow("第二列")
dr("第三列") = e.DataRow("第三列")
End If
Case "第二列","第三列"
If DataTables.Contains(e.DataRow("第一列")) Then
Dim dr As DataRow = DataTables(e.DataRow("第一列")).Find("第一列 = '" & e.DataRow("第一列") & "'")
If dr Is Nothing Then
dr = DataTables(e.DataRow("第一列")).AddNew
dr("第一列") = e.DataRow("第一列")
End If
dr(e.DataCol.name) = e.DataRow(e.DataCol.name)
End If
End Select
加好友 
发短信
Post By：2020/2/21 14:50:00 [只看该作者]
