方法一: 跟 小委托 一样,把三行的内容编程三列的内容,也就是一行大委托有三行的内容。这样直接绑定列,然后对应的赋值即可;
方法二:比如在afterLoad事件直接给各个控件赋值
Dim r1 As Row = Tables("表A").Rows(0)
Dim r2 As Row = Tables("表A").Rows(1)
Dim r3 As Row = Tables("表A").Rows(2)
e.Form.Controls("TextBox1").Text = r1("第一列")
e.Form.Controls("TextBox2").Text = r1("第二列")
e.Form.Controls("TextBox3").Text = r2("第一列")
e.Form.Controls("TextBox4").Text = r2("第二列")
e.Form.Controls("TextBox5").Text = r3("第一列")
e.Form.Controls("TextBox6").Text = r3("第二列")