|
Select Case e.DataCol.name
Case "第二列"
If e.DataRow.IsNull("第二列") = False Then
Dim dts As List(Of DataRow)
dts = DataTables("表B").Select("[第一列] = '" & e.DataRow("第一列") & "'")
For Each dt As DataRow In dts
dt.Delete()
Next
Dim p() As String = e.DataRow("第二列").split("|")
For i As Integer = 0 To p.Length - 1
Dim dr1 As Row = Tables("表B").AddNew()
dr1("第二列") = p(i)
dr1("第一列") = e.DataRow("第一列")
Next
End If
End Select
| 
加好友 
发短信
Post By：2012/2/13 14:38:00 [显示全部帖子]
