主题：逐行保存时能不能按设定的顺序进行

 

在论坛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 人事部 女 沈七

 

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

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

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

谢谢大红袍!