以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  row集合 要如何单独加入一行呢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189140)

--  作者:aoc103
--  发布时间:2023/11/13 18:36:00
--  row集合 要如何单独加入一行呢
Dim rs As List(Of Row) \'定义被选中的行的集合
If Tables(Deltables(TablePosition)).Current IsNot Nothing Then
    If CheckMult.checked = True Then\'如果勾选了多选控件
        rs = Tables("通用记录表窗口_Table1").GetCheckedRows() 
    Else \'如果不是多选模式下
        rs.Add(Tables("通用记录表窗口_Table1").Current)   ’要如何才能将当前行 加入到rs这个集合里的,我这个代码不能执行
    End If


定义了rs 为row类型的行 如果勾选了多选控件 rs的数据  可以用GetCheckedRows() 获取 可没有勾选 我希望只得到当前行 但也需要将当前行 加入到rs的集合里
当然,这时候rs这个集合,实际只有一行数据
主要是后面的方法 如果不统一使用一个集合,,同一个方法 就只能分开写2次。

--  作者:有点蓝
--  发布时间:2023/11/13 20:00:00
--  
   Else \'如果不是多选模式下
rs =new  List(Of Row)
        rs.Add(Tables("通用记录表窗口_Table1").Current)   ’要如何才能将当前行 加入到rs这个集合里的,我这个代码不能执行
    End If