以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  逐行保存时能不能按设定的顺序进行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75946)

--  作者:zhangchi96
--  发布时间:2015/10/18 13:17:00
--  逐行保存时能不能按设定的顺序进行

 

在论坛http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=75295&replyID=&skin=1 中提到逐行保存的问题,这里列出相关主要代码

 

1、保存按钮

vars("ls") = new List(of String)

For Each dr As DataRow In DataTables("A").DataRows
    dr.save
Next

 

2、表属性的beforeSaveDataRow事件代码

 

ls.add( e.DataRow("编号") & e.DataRow("单位")& e.DataRow("性别")& e.DataRow("姓名") )

Dim txt As Winform.TextBox = Forms("提示").Controls("TextBox1")   

Dim str As String = String.Join(vbcrlf, ls.ToArray)

txt.Text = str

 

这样在“窗口”中可以出现所保存的各条数据中的 编号-单位-性别-姓名

 

但明显这里不会按列表的编号顺序显示,举例显示:

 

3 人事部 张三

2 财务部 李四

5 保密部 赵武

1 办公室 王六

4 人事部 沈七

 

假如要做到按编号顺序显示 或者按单位排序显示 或按性别排序显示,或者按单位排序再按性别排序显示,是不是在逐行保存的时候就能按照所要的顺序逐行保存,代码又如何修改?请教各位高人!


--  作者:大红袍
--  发布时间:2015/10/18 13:26:00
--  

vars("ls") = new List(of String)

For Each dr As DataRow In DataTables("表A").Select("", "编号")
    dr.save
Next


--  作者:zhangchi96
--  发布时间:2015/10/18 19:46:00
--  
谢谢大红袍!

我写成了 For Each dr As DataRow In DataTables("表A").Select("", "是否在职 desc,姓名")