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


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

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

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


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
一个关于全TABLE 的搜索的问题  发帖心情 Post By:2011/9/16 16:50:00 [显示全部帖子]

如果我的表在外部数据库有50万条记录,但是我只在DataTable("DISTRIBUTOR_INFO") 我只加载了10条

 

Dim x1 As List(Of String)
x1=DataTables("DISTRIBUTOR_INFO").GetUniqueValues("","DISTRIBUTOR_NAME")
For Each v As String In x1
MessageBox.Show(v)
Next

 

我要搜索所以出满足条件的记录,我该怎么做?目前上面的代码只能在local 的10条里面查询,丢掉了很多记录。

改怎么实现这个呢?


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


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/16 17:02:00 [显示全部帖子]

我试试,多谢~

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


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/16 17:15:00 [显示全部帖子]

上一步已成功,谢谢! 

这个返回的DataTable 怎样填充到 "表A" 中?


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


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/16 18:02:00 [显示全部帖子]

创建一个临时表填充,或填充一个存在的表里面 ,主要是要把结果展现出来


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


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

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


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


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

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


 回到顶部
帅哥哟,离线,有人找我吗?
lenshen
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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重新加载命令怎么写?


 回到顶部
帅哥哟,离线,有人找我吗?
lenshen
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 

 

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


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


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/19 17:51:00 [显示全部帖子]

搞好了,自己想得太复杂了,谢谢!

 回到顶部