以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  遍历某列数值返回到窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59258)
--  作者：feiyu988
--  发布时间：2014/10/31 15:24:00
--  遍历某列数值返回到窗口
如何遍历表A中某列所有数值，在窗口textbox控件中显示出来，数值用空格隔开，每行10个
--  作者：Bin
--  发布时间：2014/10/31 15:27:00
--  
GetComboListString http://www.foxtable.com/help/topics/1435.htm
Dim s As String  = DataTables("订单").GetComboListString("客户")
output.show(s.replace("|"," "))
--  作者：有点甜
--  发布时间：2014/10/31 15:28:00
--  

Dim str As String = ""
Dim idx As Integer = 0
For Each dr As DataRow In DataTables("表C").DataRows
    str &= dr("第一列") & " "
    idx += 1
    If idx Mod 10 = 0 Then
        str &= vbcrlf
    End If
Next

msgbox(str)
--  作者：feiyu988
--  发布时间：2014/10/31 15:37:00
--  
能显示到窗口的textbox控件吗，为了复制结果
--  作者：有点甜
--  发布时间：2014/10/31 15:40:00
--  
  直接赋值啊。 Forms("窗口1").Controls("TextBox1").Text = str
--  作者：feiyu988
--  发布时间：2014/10/31 15:42:00
--  
明白了，谢谢