第一个代码：With Tables("表A")
Tables("表A").Position = 0
If .Position = 0
Dim r As Row = Tables("表A").rows(.Position)
e.form.controls("textbox1").text = r("选房人姓名")
e.form.controls("textbox2").text = r("选房顺序号")
Dim r2 As Row = Tables("表A").rows(.Position+1)
e.form.controls("textbox3").text = r2("选房人姓名")
e.form.controls("textbox4").text = r2("选房顺序号")
End If
End With
下一个代码：
With Tables("表A")
If .Position < .rows.count - 2
.Position = .Position + 1
Dim r As Row = Tables("表A").rows(.Position)
e.form.controls("textbox1").text = r("选房人姓名")
e.form.controls("textbox2").text = r("选房顺序号")
Dim r2 As Row = Tables("表A").rows(.Position+1)
e.form.controls("textbox3").text = r2("选房人姓名")
e.form.controls("textbox4").text = r2("选房顺序号")
End If
End With
加好友 
发短信
Post By：2022/1/22 19:21:00 [只看该作者]
