以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于自动排序!  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30562)

--  作者:sadfox
--  发布时间:2013/3/30 10:55:00
--  [求助]关于自动排序!

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

求大神帮忙啊!

 


--  作者:狐狸爸爸
--  发布时间:2013/3/30 11:03: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 = "数量列"

 

来个最省心、省事的:

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

楼主有个性。


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

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


--  作者:狐狸爸爸
--  发布时间:2013/3/30 11:26:00
--  

做个按钮,点一次就行:

 

for each t as table in tables

   t.sort = "xxx"

next

 

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


--  作者:sadfox
--  发布时间: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
--  发布时间: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
--  发布时间: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
--  发布时间:2013/3/30 11:31:00
--  
以下是引用sadfox在2013-3-30 11:27:00的发言:

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

3楼的办法该行了吧?