主题：帮我看看，错在哪里，谢谢

Dim n As Integer = Tables("员工信息").Rows.Count
Dim tb As WinForm.TextBox
tb = e.Form.Controls("TextBox1").text
If n> tb-1
Tables("员工信息").Rows() = tb-1
Else
MessageBox("没有改行数据!","提示")
End If

 你直接说你想实现什么功能。

当在TextBox1输入数字时（不是从0开始，是从1开始的），并返回该指定位置的行，如果输入的数字超过Table的总行数，则提示"没有该行数据!"，并返回上一行

Dim n As Integer = Tables("员工信息").Rows.Count
Dim tb As WinForm.TextBox
tb = e.Form.Controls("TextBox1").text
If tb <= n then
Tables("员工信息").Position = tb-1
Else
MessageBox("没有改行数据!","提示")
End If

此主题相关图片如下：qq拼音截图未命名.jpg

错误

 

此主题相关图片如下：qq拼音截图未命名.jpg

当TextBox1输入后，返回空值后错误

Dim n As Integer = Tables("员工信息").Rows.Count

Dim str As string = e.Form.Controls("TextBox1").text
If str > "" AndAlso val(str) <= n then
    Tables("员工信息").Position = val(str)-1
Else
    MessageBox("没有改行数据!","提示")
End If