以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助，狐爸快来帮忙啊！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30223)
--  作者：sadfox
--  发布时间：2013/3/23 11:19:00
--  求助，狐爸快来帮忙啊！

表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

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

[此贴子已经被作者于2013-3-23 11:22:54编辑过]
--  作者：唐尸三摆手
--  发布时间：2013/3/23 11:21:00
--  
Tables("资料查询_资料查询").SetColVisibleWidth("姓名|120|编号|120|.....")
--  作者：sadfox
--  发布时间：2013/3/23 11:30:00
--  

只把最后一句改成Tables("资料查询_资料查询").SetColVisibleWidth("姓名|120|编号|120|.....") ？
--  作者：sadfox
--  发布时间：2013/3/23 11:39:00
--  

感谢唐大神，应该是我后面补充的你没看见，现在需要查询完后，光标自动停留在查询结果表姓名列的第一行，然后按上下键能移动光标选择其他行.怎么实现？
--  作者：唐尸三摆手
--  发布时间：2013/3/23 11:44:00
--  

\'追加以下代码

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

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

end if
--  作者：sadfox
--  发布时间：2013/3/23 11:55:00
--  

唐大神，追加在什么位置，能说详细点嘛？嘿嘿，我是菜鸟，不懂。
--  作者：sadfox
--  发布时间：2013/3/23 11:58:00
--  

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

[此贴子已经被作者于2013-3-23 12:00:59编辑过]
--  作者：唐尸三摆手
--  发布时间：2013/3/23 12:01:00
--  
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
--  作者：sadfox
--  发布时间：2013/3/23 12:19:00
--  
唐大神，使用以上代码光标还是在节点上，光标没有自动跳到查询结果表上
--  作者：czy
--  发布时间：2013/3/23 12:30:00
--  

http://www.foxtable.com/help/topics/0549.htm