Foxtable(狐表)用户栏目专家坐堂 → [求助]列筛选排序的问题


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

主题:[求助]列筛选排序的问题

美女呀,离线,留言给我吧!
rainxiao
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
[求助]列筛选排序的问题  发帖心情 Post By:2017/12/6 8:08:00 [显示全部帖子]

想要对一个表进行筛选排序,窗体中有一个combobox控件,一个按钮,一个副本表格。想达成的效果是对combobox中输入的列名称的那一列进行筛选排序,筛选条件是筛选出有值的所有行。试了很久代码也不太对,请教下各位老师,这段代码应该怎么写呀?
还有就是我想把进行筛选的列显示在表格的前几列,因为这个表列数太多了,不知道这个可以不可以做到?谢谢大家,帮忙看一下

 回到顶部
美女呀,离线,留言给我吧!
rainxiao
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
  发帖心情 Post By:2017/12/6 10:27:00 [显示全部帖子]

以下是引用有点甜在2017/12/6 9:51:00的发言:

参考代码,TextChanged事件

 

Dim lm As String = e.Sender.Text
Dim t As Table = Tables("表A")
If t.cols.Contains(lm) Then
    t.filter = lm & " is not null"
    t.cols(lm).move(0)
End If




谢谢老师,还想问下,如果想要排序的话,sort语句应该怎么写呀?


 回到顶部
美女呀,离线,留言给我吧!
rainxiao
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
  发帖心情 Post By:2017/12/6 13:02:00 [显示全部帖子]

以下是引用有点蓝在2017/12/6 12:10:00的发言:

Dim lm As String = e.Sender.Text
Dim t As Table = Tables("表A")
If t.cols.Contains(lm) Then
    t.filter = lm & " is not null"
    t.cols(lm).move(0)
    t.sort = “某某列”
End If


老师你好,我是弄不懂如果用筛选那一列进行排序的话应该用什么代码。表达式总是写不对




 回到顶部
美女呀,离线,留言给我吧!
rainxiao
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
  发帖心情 Post By:2017/12/6 14:43:00 [显示全部帖子]

谢谢老师,麻烦你了

 回到顶部
美女呀,离线,留言给我吧!
rainxiao
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
  发帖心情 Post By:2017/12/12 14:48:00 [显示全部帖子]

以下是引用有点甜在2017/12/6 14:20:00的发言:

Dim lm As String = e.Sender.Text
Dim t As Table = Tables("表A")
If t.cols.Contains(lm) Then
    t.filter = lm & " is not null"
    t.cols(lm).move(0)
    t.sort = lm
End If 




老师你好,我现在想加一个按钮,效果是点击之后是降序排列,代码不是应该就是后面加上DESC吗?t.sort = lm DESC这段代码不正确吗?


 回到顶部
美女呀,离线,留言给我吧!
rainxiao
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
  发帖心情 Post By:2017/12/12 15:32:00 [显示全部帖子]

以下是引用有点甜在2017/12/12 15:11:00的发言:
Dim lm As String = e.Sender.Text
Dim t As Table = Tables("表A")
If t.cols.Contains(lm) Then
    t.filter = lm & " is not null"
    t.cols(lm).move(0)
    t.sort = lm & " desc"
End If 
老师,这样改提示一个这样的错误“排序字符串包含一个不在 IBindingList 中的属性。”


 回到顶部
美女呀,离线,留言给我吧!
rainxiao
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
  发帖心情 Post By:2017/12/12 16:18:00 [显示全部帖子]

以下是引用有点甜在2017/12/12 15:51:00的发言:
代码没问题的,不会报这个错。做个例子发上来看看。
窗口2
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:标样.table


 回到顶部
美女呀,离线,留言给我吧!
rainxiao
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
  发帖心情 Post By:2017/12/12 17:24:00 [显示全部帖子]

可以了,谢谢甜老师,我还有个问题,见附件图1,表1进行筛选后想对某一列进行图表分析,显示在图1的位置上,同时Lable1显示该列数值的标准偏差值与相对标准偏差值。我编出来的代码总是不太合适。上传的附件中例子的窗口3是这个窗口
有几个问题,问题1该列没有值的点也放在图里面了,想把没有值的行排除掉。问题2:想对图表的Y轴刻度进行自定义的设置,能不能加个文本框输入一个数值,然后图表能以该值显示Y轴刻度。问题3,在标签中显示指定列的统计值的话代码应该
图片点击可在新窗口打开查看此主题相关图片如下:图1.bmp
图片点击可在新窗口打开查看
如何写呢?
问题比较多,恳请老师给指点一下,谢谢谢谢!

 回到顶部
美女呀,离线,留言给我吧!
rainxiao
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
  发帖心情 Post By:2017/12/12 17:39:00 [显示全部帖子]

案例发了好几次都没传上去,我明天再试试,我先学习下图表知识,谢谢老师

 回到顶部
美女呀,离线,留言给我吧!
rainxiao
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:975 威望:0 精华:0 注册:2017/11/14 11:28:00
  发帖心情 Post By:2017/12/13 7:45:00 [显示全部帖子]

窗口3
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:标样2.table


 回到顶部
总数 13 1 2 下一页