主题：求助，狐爸快来帮忙啊！

表A，有很多列

下面代码查询窗口出来的表示显示的是表A的所有列，但是我想查询表只显示表A的|姓名列、编号列、年龄列和查询条件的列、该怎么修改？请大神帮忙！

Dim kk As String = e.Node.name
Dim fir As String
Select Case kk
    Case "初中"
    fir = "文化 = '初中'"
    Case "高中"
    fir = "文化 = '高中'"
    Case "大专"
    fir = "文化 = '大专'"
End Select
Tables("资料查询_资料查询").Filter = fir

对了，还需要查询完后光标需要停留在查询表姓名列的第一行上，然后按上下键能移动光标选择其他行.

Tables("资料查询_资料查询").SetColVisibleWidth("姓名|120|编号|120|.....")

只把最后一句改成Tables("资料查询_资料查询").SetColVisibleWidth("姓名|120|编号|120|.....") ？

感谢唐大神，应该是我后面补充的你没看见，现在需要查询完后，光标自动停留在查询结果表姓名列的第一行，然后按上下键能移动光标选择其他行.怎么实现？

'追加以下代码

if Tables("资料查询_资料查询").current isnot nothing then

Tables("资料查询_资料查询").select(0,0)

end if

唐大神，追加在什么位置，能说详细点嘛？嘿嘿，我是菜鸟，不懂。

测试了，放在最后面没效果。代码追加在后面，查询结果出来后，光标还是选择在目录节点上

Dim kk As String = e.Node.name
Dim fir As String
Select Case kk
    Case "初中"，"高中"，"大专"
        fir = "文化 = '"& kk &"'"
End Select
With Tables("资料查询_资料查询")
    .Filter = fir
    .SetColVisibleWidth("姓名|120|编号|120|.....")  '需要显示什么列自己修改
    If .current IsNot Nothing Then
        .Select(0,0)
    End If
End With

唐大神，使用以上代码光标还是在节点上，光标没有自动跳到查询结果表上