Select Case e.DataCol.Name
Case "第一列","第二列"
If e.DataRow.IsNull("第一列") = False And e.DataRow.IsNull("第二列") = False Then
Dim arr1() As String = e.DataRow("第一列") .split(" ")
Dim arr2() As String = e.DataRow("第二列") .split(".")
If arr1.Length <= arr2.Length And arr1.Length > 1 Then
Dim dr As DataRow
SystemReady = False
e.DataRow("第一列") = arr1(0)
e.DataRow("第二列") = arr2(0)
For i As Integer = 1 To arr1.Length -1
dr = e.DataTable.AddNew()
dr("第一列") = arr1(i)
dr("第二列") = arr2(i)
dr("第三列") = e.DataRow("第三列")
Next
SystemReady = True
End If
End If
End Select
加好友 
发短信
Post By：2016/11/30 11:08:00 [显示全部帖子]
