以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么取选择部分的某不重复字段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117920)

--  作者:xxfoxtable
--  发布时间:2018/4/20 19:48:00
--  怎么取选择部分的某不重复字段

Dim b As WinForm.Table = e.Form.Controls("Table1")

Dim rs As List(of Row) =  b.Table.GetCheckedRows

怎么取“已选择部分”的某个字段的不重复值列表


--  作者:有点蓝
--  发布时间:2018/4/20 20:30:00
--  
Dim lst As new List(of String)
Dim b As WinForm.Table = e.Form.Controls("Table1")
For Each r As Row In  b.Table.GetCheckedRows
    If lst.Contains(r("某列")) = False
        lst.Add(r("某列"))
    End If
Next