Dim t As Table= Tables("设备资料表")
Dim nr As WinForm.TextBox = e.Form.Controls("TextBox1")
For i As Integer = 0 To t.Rows.Count -1
t.Position=i
Dim r As Row= t.Current
nr.Value = "IP地址:"& r("设备地址") & vbcrlf & "MAC地址:" & r("设备物理地址") & vbcrlf & "网关地址:" & r("设备网关") & vbcrlf & "责任人:" & r("设备责任人") & vbcrlf & "资料维护日期:" & r("维护日期")
Next
窗口中 通过点击按钮 实现 TextBox1 显示不同内容，在循环后，只显示最后一行的值，这是为什么啊
加上下面代码即可，记录下
Application.DoEvents()
[此贴子已经被作者于2021/11/17 11:37:10编辑过]
加好友 
发短信
Post By：2021/11/17 11:06:00 [只看该作者]
