以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何多列显示？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94336)
--  作者：jswjyjf
--  发布时间：2016/12/21 12:59:00
--  如何多列显示？
If e.IsFocusCell Then 
    If e.Col.Name = "款型及款号" Then 
        e.Col.Combolist = DataTables("客户款号").GetComboListString("款型及款号","[客户名称] = \'" & e.Row("客户名称") & "\'") 
    End If
End If


现在要提取两列，并排显示 代码如何写
--  作者：有点色
--  发布时间：2016/12/21 14:38:00
--  
If e.IsFocusCell Then 
    If e.Col.Name = "款型及款号" Then 
        e.Col.Combolist = DataTables("客户款号").SqlGetComboListString("款型及款号,名称","[客户名称] = \'" & e.Row("客户名称") & "\'") 
    End If
End If
--  作者：有点色
--  发布时间：2016/12/21 14:39:00
--  

 或者是，用GetValues获取两列，然后循环组合

 

\'定义数组集合的时候，要在类型后加上括号，表示这是一个数组集合。
Dim Arys As List(Of String()) 
Arys = DataTables("订单").GetValues("产品|客户") \'列名用符号|分割
\'注意循环变量是字符型数组，所以类型是String()，而不是String
For Each Ary As String() In Arys
    Output.Show(Ary(0) & "," & Ary(1)) 
Next