Dim cs1() = {"姓名", "性别", "年龄","身份证号","出生年月","联系电话" ,"籍贯","民族","学历","健康状况","参加工作时间","政治面貌","兴趣爱好","离退休职务","享受待遇","地址","状态","离退休时间","专业技术职务","专业特长","所在党支部","入党时间","个人成分","离退休单位","党龄","离退休部门"}
Dim cs2() = {"name", "sex", "age","cardID","birth","tel","jiguan","rational","edu","health","workdate","politicalStatus","hobbies","retiredPost","title","address","leaOrRetire","retireTime","proTecPost","proSpecialty","partyBranch","partyTime","presonalClass","organName","partyStanding","retiredDep"}
Dim cs As String = ""
If  e.Form.Controls("cmb").Value = Nothing Then
    Tables("时间节点查询_Table1").Filter = filter2
    Return
Else
    cs = e.Form.Controls("cmb").Value
    Dim jb1 As New SQLJoinTableBuilder("查询表1","person")
    jb1.C
    For Each s As String In cs.split(",")
    Dim i = array.Indexof(cs1, s)
           jb1.AddExp(s,cs2(i))
    Next
    \'jb1.Filter = filter
    jb1.Build 
    \'forms("查询表").Open
    \'Dim t1 As Table = forms("查询表").controls("Table1").Table
    \'t1.DataSource = jb1.BuildDataSource()
    \'t1.Select(-1,-1)
    \'For Each c As Col In t1.Cols
           \'c.TextAlign  = TextAlignEnum.Center
    \'Next
End If

老师，我之前是用这个办法，根据用户选择的字段，只输出几个字段，不输出全字段，但是，现在这个红色部分，我不是来源于数据库，而是一个sqlquery表？现在该如何实现呀？

你这个sqlquery表有什么字段？是否固定？把字段名称改写到cs1、cs2里面即可啊。

固定 ，一样，主要是红色那里我如何写

SQLJoinTableBuilder必须写数据源，但是这里这个表没有数据源

对于查询表、临时表，无法使用 SQLJoinTableBuilder，请换成别的方式处理。

或者上传具体项目，说明你要做到什么效果。

老师，如何设置列不可见，现在表里面10个列都可见，如果用户选了3个列，我只设置这3个列可见 ，别的列不可见，怎么设置？请指导一下

1、比如 Tables("表A").cols("第一列").Visible = true

2、比如 http://www.foxtable.com/webhelp/scr/1775.htm