- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮我看看，错在哪里，谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86596)
-- 发布时间：2016/6/21 11:41:00
-- 帮我看看，错在哪里，谢谢
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
-- 发布时间：2016/6/21 11:56:00
--
你直接说你想实现什么功能。
-- 发布时间：2016/6/21 12:07:00
--
当在TextBox1输入数字时（不是从0开始，是从1开始的），并返回该指定位置的行，如果输入的数字超过Table的总行数，则提示"没有该行数据!"，并返回上一行
-- 发布时间：2016/6/21 12:09:00
--
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
[此贴子已经被作者于2016/6/21 12:34:13编辑过]
-- 发布时间：2016/6/21 12:12:00
--
此主题相关图片如下：qq拼音截图未命名.jpg
错误
-- 发布时间：2016/6/21 12:34:00
--
[此贴子已经被作者于2016/6/21 14:32:54编辑过]
-- 发布时间：2016/6/21 13:13:00
--
此主题相关图片如下：qq拼音截图未命名.jpg
当TextBox1输入后，返回空值后错误
-- 发布时间：2016/6/21 14:33:00
--
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