以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]指定参数已超出有效值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122692)
--  作者：bailang121
--  发布时间：2018/7/31 12:27:00
--  [求助]指定参数已超出有效值
Dim r As Row = CurrentTable.Rows(CurrentTable.Rows.Count-1)
e.Form.Controls("公账框").Text = r("余额")


执行以上代码，刚开始可以正确执行，  在十分钟后，在未修改任何代码的情况下，执行就出错了！    显示：指定参数已超出有效值。。。

请管理帮忙看一下~   以上代码是需要换成什么样的表述方式才对？
--  作者：有点甜
--  发布时间：2018/7/31 13:13:00
--  

If CurrentTable.Rows.Count = 0 Then
    msgbox("没有数据")
Else
    Dim r As Row = CurrentTable.Rows(CurrentTable.Rows.Count-1)
    e.Form.Controls("公账框").Text = r("余额")
End If
--  作者：bailang121
--  发布时间：2018/7/31 13:44:00
--  
甜版主，您这个貌似还是要报错啊~再帮忙看看~

\'\'\'==========================================筛选出对应结果
        Dim dst As Table = Tables("收支表")
        Dim txb1 = "公账"
        dst.Filter = "[收支方式] Like \'*" & txb1 & "*\'"
End With
\'\'============================================显示相应余额到公账框内
Dim r As Row = CurrentTable.Rows(CurrentTable.Rows.Count-1)
e.Form.Controls("公账框").Text = r("余额")
--  作者：bailang121
--  发布时间：2018/7/31 13:53:00
--  
我想实现的其实就是    点击某个按钮后     得出表内的某个数值，  然后将该数值显示在一个文本框内！~     帮忙看下 这个写法的中间是缺什么才报错了
--  作者：bailang121
--  发布时间：2018/7/31 14:20:00
--  
刚发现~   这个写法   貌似是要正好在操作这个表格的情况下   代码没问题~     重启程序新开的话~  就会报错~      

Dim r As Row = CurrentTable.Rows(CurrentTable.Rows.Count-1)     这一句的写法能不能换一下怎么样直接落实到某个表上面去？
--  作者：有点甜
--  发布时间：2018/7/31 14:22:00
--  

那你就改成具体的表名

 

Dim t As Table = Tables("表A")
If t.Rows.Count = 0 Then
    msgbox("没有数据")
Else
    Dim r As Row = t.Rows(t.Rows.Count-1)
    e.Form.Controls("公账框").Text = r("余额")
End If