|
Dim t1 As Table = Tables("表A")
Dim t2 As Table = Tables("表B")
For i As Integer = 1 To t1.Rows.count-1
Dim r1 As Row = t1.Rows(i-1)
Dim r2 As Row = t1.Rows(i)
If r2.IsNull("第一列") = False Then
If r1("第一列") + 1 <> r2("第一列") Then
For j As Integer = r1("第一列")+1 To r2("第一列")-1
Dim idx = t2.findrow("第一列 is null")
Dim nr As Row
If idx < 0 Then
nr = t2.addnew
Else
nr = t2.Rows(idx)
End If
nr("第一列") = j
Next
End If
End If
Next
| 
加好友 
发短信
Post By：2018/1/5 15:20:00 [显示全部帖子]
