Foxtable(狐表)用户栏目专家坐堂 → 一个关于全TABLE 的搜索的问题


  共有14088人关注过本帖树形打印复制链接

主题:一个关于全TABLE 的搜索的问题

帅哥哟,离线,有人找我吗?
zzwxm98
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:86 积分:856 威望:0 精华:0 注册:2008/9/1 21:47:00
  发帖心情 Post By:2011/9/18 22:39:00 [只看该作者]

由于上传限制,数据做了大量删减。见客户档案窗口1

按钮事件能否编成通用模块。

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查询项目.rar


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/19 8:23:00 [只看该作者]

不同的问题,请分别发帖提问,不要跟在人家后面。

 回到顶部
帅哥哟,离线,有人找我吗?
ybil
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:521 积分:4910 威望:0 精华:7 注册:2008/9/2 22:22:00
  发帖心情 Post By:2011/9/19 11:52:00 [只看该作者]

难怪狐狸爸爸以为你是跟在人家后面的,谁叫你换披甲呢:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查询.rar


 回到顶部
帅哥哟,离线,有人找我吗?
zzwxm98
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:86 积分:856 威望:0 精华:0 注册:2008/9/1 21:47:00
  发帖心情 Post By:2011/9/19 14:14:00 [只看该作者]

原来是这回事,我还以为是我资格不够。

其实我也有这个需求,替楼主上传实例而已。

谢谢ybil帮我解决了问题


 回到顶部
帅哥哟,离线,有人找我吗?
zzwxm98
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:86 积分:856 威望:0 精华:0 注册:2008/9/1 21:47:00
  发帖心情 Post By:2011/9/19 14:20:00 [只看该作者]

细细用起来超越了我的期望,不仅可以全表查询,还可以二次查询,太好了。

再次谢谢。

 


 回到顶部
帅哥哟,离线,有人找我吗?
lenshen
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/19 17:05:00 [只看该作者]

如果我有一个6万用户基本信息表,目前我只读出10条,我现在按照门的分类做了个分类窗口,当我点击每一个分类节点时我希望从外部数据库拿到该类所有的用户列表,这种数据刷新我怎么做?谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
lenshen
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/19 17:06:00 [只看该作者]

并且我搜索出来的结果我要能编辑修改它的信息,


 回到顶部
帅哥哟,离线,有人找我吗?
lenshen
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/19 17:13:00 [只看该作者]

以下是引用ybil在2011-9-16 18:16:00的发言:

Tables重新加载命令怎么写?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/19 17:20:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lenshen
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/19 17:32:00 [只看该作者]

Dim Value()As String
MainTable = Tables("DBMS_USER_INFO") '------------用户信息表目前只加载10条
With Tables("DBMS_USER_INFO")
'MessageBox.Show(e.Node.Level)  
    If e.Node.Level=0 Then
        Return
    End If

    Value = e.Node.FullPath.Split("|")
   
    'MessageBox.Show( Value(1))  'Value(1)---------类型ID
    Select Case e.Node.Level
        Case 1
            
            MainTable.Fill("Select * From DBMS_USER_INFO Where USER_TYPE=\'" & Value(1) & "\'","DEMO3",False)
    End Select
   
End With

 

 

为什么会没反应呢?多谢了


 回到顶部
总数 22 上一页 1 2 3 下一页