If e.KeyCode = Keys.Enter Then
If val(StrToNarrow(e.Sender.Text)) > val(e.Form.Controls("textbox2").text) Then
MessageBox.show("请注意,你输入值大于了设定值","提示",MessageBoxButtons.OK)
e.Sender.Select
e.Sender.Text = ""
Else
If e.sender.text = ""
e.sender.value = "0"
End If
e.sender.WriteValue '放在这个位置试试
e.Sender.Select
If Tables("小学统分(改)_table1").Position < Tables("小学统分(改)_table1").Rows.Count-1 Then
Tables("小学统分(改)_table1").Position += 1
Else
messagebox.show("已到最后一个了")
End If
End If
DataTables("成绩").Save()
e.Cancel = True
End If
这个可以了,但 e.Sender.Select 不能选中文本,如某行有个数25,要想换行是文件框内的25被选中,这样如果要改直接输入,但现在是光标在25的前面,如果输入24就成了2425,这样不方便,请问怎么实现选中