http://www.foxtable.com/webhelp/topics/1533.htm
Dim Cols1() As String = {"第一列","第二列"}
Dim Cols2() As String = {"第三列","第四列"}
Dim Cols3() As String = {"第五列","第六列"}
For Each dr1 As DataRow In DataTables("表A").Datarow
Dim dr2 As DataRow = DataTables("表A").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols1(i)) = dr1(Cols2(i))
Next
Next
For Each dr1 As DataRow In DataTables("表A").Select("第五列 is not null")
Dim dr2 As DataRow = DataTables("表A").AddNew
For i As Integer = 0 To Cols1.Length -1
dr2(Cols1(i)) = dr1(Cols3(i))
Next
Next
DataTables("表A").replacefor("第五列",nothing)
DataTables("表A").replacefor("第六列",nothing)
dim c as integer = DataTables("表A").datarows.count / 2
dim k as integer = 0
for j as integer = c to Tables("表A").rows,count - 1
For i As Integer = 0 To Cols2.Length -1
Tables("表A").rows(k)(Cols2(i)) = Tables("表A").rows(j)(Cols1(i))
Tables("表A").rows(j)(Cols1(i)) = nothing
Next
k+=1
Next
DataTables("表A").deletefor("第一列 is null")
加好友 
发短信
Post By：2025/1/19 20:34:00 [显示全部帖子]
