以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  文本框显示某几列内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143515)
--  作者：蓝蚂蚁
--  发布时间：2019/11/27 14:25:00
--  文本框显示某几列内容
If  CurrentTable.name="目录" Then
    Dim r As Row = Tables("医用耗材目录").current
    Dim str As String = ""
    For Each c As Col In r.Table.cols
        str &= c.name & ":" & r(c.name) & vbcrlf
    Next
    e.Form.Controls("TextBox1").text=str
End If
上面代码是显示所有列 ，如何让他们显示第一列、第二列、第五列？
--  作者：有点蓝
--  发布时间：2019/11/27 14:31:00
--  
dim arr() as string = {"第一列","第二列",........}
Dim str As String = ""
    For Each c As string In arr
if Tables("医用耗材目录").cols.contains(c)
        str &= c & ":" & r(c) & vbcrlf
end if
    Next
    e.Form.Controls("TextBox1").text=str