Foxtable(狐表)用户栏目专家坐堂 → [求助]关于自动排序!


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

主题:[求助]关于自动排序!

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


加好友 发短信
等级:童狐 帖子:292 积分:1864 威望:0 精华:0 注册:2013/3/16 21:31:00
[求助]关于自动排序!  发帖心情 Post By:2013/3/30 10:55:00 [只看该作者]

需要在表A的数量列有新内容输入时,自动按升序排序,并且数量列空值行不参加排序、我现在怎么搞,自动排序都把空值行给我排最前面。

求大神帮忙啊!

 


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


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

没有必要这样的,录入完成之后,需要排序的时候,再单击排序就行了。

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/3/30 11:07:00 [只看该作者]

ValidateEdit

e.Table.Filter = ("数量列 Is Not Null")
e.Table.Sort = "数量列"

 

 

最好做个菜单按钮,录完了再筛选、排序。

CurrentTable.Filter = ("数量列 Is Not Null")
CurrentTable.Sort = "数量列"

 

来个最省心、省事的:

MainTableChanged
For Each c As Col In MainTable.Cols
    If c.Name.Contains("数量列") Then
        MainTable.Filter = ("数量列 Is Not Null")
        MainTable.Sort = "数量列"
    End If
Next

[此贴子已经被作者于2013-3-30 11:29:37编辑过]

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/3/30 11:11:00 [只看该作者]

以下是引用狐狸爸爸在2013-3-30 11:03:00的发言:
没有必要这样的,录入完成之后,需要排序的时候,再单击排序就行了。

楼主有个性。


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


加好友 发短信
等级:童狐 帖子:292 积分:1864 威望:0 精华:0 注册:2013/3/16 21:31:00
  发帖心情 Post By:2013/3/30 11:13:00 [只看该作者]

以下是引用狐狸爸爸在2013-3-30 11:03:00的发言:
没有必要这样的,录入完成之后,需要排序的时候,再单击排序就行了。

狐爸啊,300个表,难道让我一个表去点一次啊!


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


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

做个按钮,点一次就行:

 

for each t as table in tables

   t.sort = "xxx"

next

 

另外,如果你的系统真的加载了300个表,那么你的设计思路大大的有问题。


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


加好友 发短信
等级:童狐 帖子:292 积分:1864 威望:0 精华:0 注册:2013/3/16 21:31:00
  发帖心情 Post By:2013/3/30 11:26:00 [只看该作者]

我现在是把表事件里写上这个

If e.DataCol.Name = "时间" Then '如果是已结帐列的内容变动Dim t As Table = Tables("日考核")
    Dim t As Table = Tables("日考核3")
    t.Sort = "时间" '指定排序字段
End If

但是数据变化自动排序的时候都是把空白行值排最前面!


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


加好友 发短信
等级:童狐 帖子:292 积分:1864 威望:0 精华:0 注册:2013/3/16 21:31:00
  发帖心情 Post By:2013/3/30 11:27:00 [只看该作者]

以下是引用lsy在2013-3-30 11:07:00的发言:

ValidateEdit

e.Table.Filter = ("数量列 Is Not Null")
e.Table.Sort = "数量列"

 

 

最好做个菜单按钮,录完了再筛选、排序。

CurrentTable.Filter = ("数量列 Is Not Null")
CurrentTable.Sort = "数量列"

[此贴子已经被作者于2013-3-30 11:15:08编辑过]

LSY有办法没?做按钮不现实啊!


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


加好友 发短信
等级:童狐 帖子:292 积分:1864 威望:0 精华:0 注册:2013/3/16 21:31:00
  发帖心情 Post By:2013/3/30 11:31:00 [只看该作者]

以下是引用狐狸爸爸在2013-3-30 11:26:00的发言:

做个按钮,点一次就行:

 

for each t as table in tables

   t.sort = "xxx"

next

 

另外,如果你的系统真的加载了300个表,那么你的设计思路大大的有问题。

狐爸别走,等我传个列子,帮忙看看!

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/3/30 11:31:00 [只看该作者]

以下是引用sadfox在2013-3-30 11:27:00的发言:

LSY有办法没?做按钮不现实啊!

3楼的办法该行了吧?


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