去编写窗口的click事件
If e.Sender.Name Like "TextBox*" Then
Dim idx As Integer = e.Sender.Name.Replace("TextBox", "")
msgbox(idx)
Tables("qrymyf").Position = idx
End If