以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教关于“窗口设计里的Table ”的一个代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30608)
--  作者：qq469000995
--  发布时间：2013/3/31 21:19:00
--  请教关于“窗口设计里的Table ”的一个代码问题

哪个大虾帮忙指点下，如何在窗口设计里的Table  一次性全部显示列，代码不用一个一个的指出来

 

 

比如代码       Dim c As String = "叠次,100|叠名,318|报型,100"            

 

这个：    叠次,100|叠名,318|报型,100         能不能用一个符一次性就能指名全部？  因为设计的时候列数太多，又想全部引出来。

 

懂的指教下，谢谢。
--  作者：夕然
--  发布时间：2013/3/31 22:51:00
--  

Dim rstr As String
For Each c As Col In Tables("表B").Cols
    rstr = rstr & c.Name & "|"
Next
Output.SHOW(RSTR)

 

试试这个
--  作者：qq469000995
--  发布时间：2013/3/31 23:23:00
--  

用不了呢，
--  作者：Bin
--  发布时间：2013/4/1 8:58:00
--  
Dim c As String = "叠次,100|叠名,318|报型,100"
Dim cs() As String = c.Split("|")
Dim tb As DataTable = DataTables("表名")
For i As Integer=0 To cs.Length-1
    Dim colss=cs(i).Split(",")
    colss(0)\'这个是列名
    colss(1)\'这个是对应值
     \'现在你可以根据你喜好随意操作了
Next