搞定了enter事件中:(只是要进入textbox时才行)
Dim Multi As string = Tables("表").Current("列")
Dim Values as String()
Values = Multi.split("-")
dim ss as string = (Values(0))
ss = ""
dim ss1 as string = (Values(1))
e.Form.Controls("textbox2").value = ss " & " ss1
e.Form.Controls("textbox2").Select()
For Index As Integer = 0 To 0
dim ss as string = (Values(Index))
ss = ""
For Index1 As Integer = 1 To 1
dim ss1 as string = (Values(Index1))
Next
e.Form.Controls("textbox2").value = ss " & " ss1
Next
[此贴子已经被作者于2009-3-1 19:46:07编辑过]