以文本方式查看主题 - 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 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("", "编号") |
-- 作者:zhangchi96 -- 发布时间:2015/10/18 19:46:00 -- 谢谢大红袍! 我写成了 For Each dr As DataRow In DataTables("表A").Select("", "是否在职 desc,姓名") |