Foxtable(狐表)用户栏目专家坐堂 → 请高手指教


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

主题:请高手指教

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


加好友 发短信
等级:婴狐 帖子:37 积分:317 威望:0 精华:0 注册:2011/5/26 21:29:00
请高手指教  发帖心情 Post By:2011/7/18 0:28:00 [只看该作者]

表中“窗口1”,筛选虽已能进行多次重复筛选,但在“取值”框中列出的列表项目却永远是第一次筛选前的数据,能否实现在n次筛选操作时,列出n-1次筛选结果相对就的列表项目?代码该如何写?请高手们指教!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:伟华产品生产管理系统.table


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


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

以下代码:

 

    Dim cmd As New SQLCommand   '定义一个新的SQLCommand,这个类用于执行SQL命令.
    Dim dt As DataTable
    cmd.CommandText = "Select  DISTINCT " & cmb2.Value & " from {"& i &"}  Where " & cmb2.Value & " Is Not Null"  '需要排除重复的行,可以在字段列表前面加上关键词DISTINCT
    dt = cmd.ExecuteReader() 'ExecuteReader生成一个DataTable(临时表),只有在代码执行过程中才存在,也不会显示在界面中,所以用户感觉不到这个DataTable的存在.
    For Each dr As DataRow In dt.datarows
        cmb1.Items.Add(dr(cmb2.Value )) 'Items字符集合,表示所有的自定义列表项目.增加一个列表项目
    Next

 

改为一行就行:

 

   cmb1.ComboList = DataTables("表A").GetComboListString(cmb2.Value,Tables("表A").Filter)


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


加好友 发短信
等级:婴狐 帖子:37 积分:317 威望:0 精华:0 注册:2011/5/26 21:29:00
  发帖心情 Post By:2011/7/18 10:17:00 [只看该作者]

可以了,谢谢狐狸爸爸!

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


加好友 发短信
等级:婴狐 帖子:37 积分:317 威望:0 精华:0 注册:2011/5/26 21:29:00
  发帖心情 Post By:2011/7/18 10:27:00 [只看该作者]

狐狸爸爸,再请教一下:我项目里才建了一个原片表,应该是想要做的项目内容的十分之一左右,但现在就已感觉打开项目和操作时(写代码时)机器运行没原来爽了,这是我机器的原因,还是我的代码有问题(因不懂代码的原理和方法,90%是剪辑修改拼成的)?项目内容渐渐增加后会不会影响运行的?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/7/18 11:03:00 [只看该作者]

1、你用的似乎是筛选,不是加载,数据量大的时候,应该用动态加载,

2、foxtable适合处理海量数据,只要设计得当,不管数据量多大,性能一样很好。

 


 回到顶部