专家坐堂-关于InputValueFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于InputValue  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59232)

--  作者：czy66ds
--  发布时间：2014/10/31 9:55:00
--  关于InputValue
使用函数InputValue弹出的窗口时，如果点击“取消”，会报错“Invalid parameters for Select method.”
请问，该如何规避？

--  作者：Bin
--  发布时间：2014/10/31 9:57:00
--
代码发出来看看,没些对吧

--  作者：czy66ds
--  发布时间：2014/10/31 10:04:00
--
就是拷贝帮助上的：
Dim Val As Integer = 5
If InputValue(Val, "增加行", "请输入要增加的行数:") Then
Dim i As Integer
For i = 1 To val
Tables("窗口1_Table1").AddNew
Next
End If
Tables("窗口1_Table1").Select(0,0)

窗口弹出后如果输入数值再按“确定”没有问题

--  作者：有点甜
--  发布时间：2014/10/31 10:05:00
--
Dim Val As Integer = 5
If InputValue(Val, "增加行", "请输入要增加的行数:") Then
    Dim i As Integer
    For i = 1 To val
        Tables("窗口1_Table1").AddNew
    Next
End If
If Tables("窗口1_Table1").Rows.Count > 0 Then
    Tables("窗口1_Table1").Select(0,0)
End If

--  作者：czy66ds
--  发布时间：2014/10/31 10:12:00
--
测试通过，谢谢。
原来是没加入行，还要Tables("窗口1_Table1").Select(0,0)就会报错了。