以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]row数组为何报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105243)
--  作者：18523982317
--  发布时间：2017/8/15 11:57:00
--  [求助]row数组为何报错
Dim rss As List(of Row)
Dim r As Row
Select Case Tables("证件使用表").ShowCheckBox
Case True
rss  = Tables("证件使用表").GetCheckedRows()
If rss.Count = 0 Then
msgbox("未选择任何行!")
Return
End If
Case False
msgbox(0)
r = Tables("证件使用表").Current
rss.Add(r)
End Select
msgbox(1)


0可以弹出来，1却弹不出来，我确定当前行存在，rows。count不为0
--  作者：有点甜
--  发布时间：2017/8/15 12:00:00
--  

改成

 

Dim rss As new List(of Row)

 

或者rrs重新赋值

 

        msgbox(0)
rss = new List(Of Row)
        r = Tables("表A").Current
        rss.Add(r)