主题：如何在窗口中自动编号表格中的选定格？

Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim txt3 As WinForm.TextBox = e.Form.Controls("TextBox3")

Dim t As Table = e.Form.controls("table1").Table
For i As Integer = t.TopPosition To t.BottomPosition
    t.Rows(i)(t.ColSel) = txt1.text & "-" & txt2.text & "-" & format(val(txt3.text)+(i-t.TopPosition), "000")
Next