AfterLoad事件
Dim lbx1 As WinForm.ListBox = e.Form.Controls("ListBox1")Dim lbx2 As WinForm.ListBox = e.Form.Controls("ListBox2")
Dim cr As Row = Forms("窗口1").Controls("Table1").Table.currentlbx1.SelectedValue = cr("第一列")lbx2.SelectedValue = cr("第二列")