- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 排序问题求教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32361)
-- 发布时间：2013/4/30 17:55:00
-- 排序问题求教
Dim bbmph As List(of DataRow) = e.DataTable.Select("部门 = \'" & e.DataRow("部门") & "\' And 姓名 Is Not Null And 出生日期 Is Not Null ","出生日期")
Select Case e.DataCol.name
Case "部门","姓名","出生日期","工段"
For i As Integer = 0 To bbmph.count - 1
bbmph(i)("本部门排行") = i + 1
Next
End Select
If e.DataRow.Isnull("姓名") Or e.DataRow.Isnull("出生日期") Then
e.DataRow("本部门排行") = Nothing
End If
这个代码有个问题啊
我更改部门时。原有部门的人员不会重新排序了，只是改的新部门的人排序。
-- 发布时间：2013/4/30 18:46:00
--
当然不会
你把集合 bbmph 放到Select Case里面试试
Select Case e.DataCol.name
For i As Integer = 0 To bbmph.count - 1 bbmph(i)("本部门排行") = i + 1 Next End Select If e.DataRow.Isnull("姓名") Or e.DataRow.Isnull("出生日期") Then e.DataRow("本部门排行") = Nothing End If |
-- 发布时间：2013/4/30 18:49:00
--
也不行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2013/4/30 18:49:00
--
我上传了附件，试试吧，不行的
-- 发布时间：2013/4/30 18:51:00
--
原因我知道，部门改了，代码是对新部门进行排序，老部门的没有代码运行
问题是这个怎么解决呢
-- 发布时间：2013/4/30 20:26:00
--
Select Case e.DataCol.name
Case "部门","姓名","出生日期"
For Each s As String In DataTables("表A").GetUniqueValues("","部门")
Dim bbmph As List(of DataRow) = e.DataTable.Select("部门 = \'" & s & "\' And 姓名 Is Not Null And 出生日期 Is Not Null ","出生日期")
For i As Integer = 0 To bbmph.count - 1
bbmph(i)("本部门排行") = i + 1
Next
Next
End Select
If e.DataRow.Isnull("姓名") Or e.DataRow.Isnull("出生日期") Then
e.DataRow("本部门排行") = Nothing
End If