For T As Integer = 1 To Tables("表AA").rows.count - 1 Step 1
If T < Tables("表AA").rows.count Then
Dim r As Row = Tables("表BB").AddNew
r("第一列") = Tables("表AA").rows(T)("第一列") + Tables("表AA").rows(T)("第五列")
r("第二列") = Tables("表AA").rows(T)("第三列") + 20
End If
Next
For N As Integer = 3 To Tables("表AA").rows.count - 1 Step 3
If N < Tables("表AA").rows.count Then
Dim s As Row = Tables("表BB").AddNew
s("第三列") = Tables("表AA").rows(N)("第一列") + Tables("表AA").rows(N)("第五列")
s("第四列") = Tables("表AA").rows(N)("第三列") + 20
End If
Next
执行上面代码，数据没在同一行，如何实现在同一行？
此主题相关图片如下：数据行.jpg
加好友 
发短信
Post By：2023/5/18 16:47:00 [只看该作者]
