- 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=15490)
-- 发布时间：2011/12/28 12:58:00
-- [求助]代码不能达到要求（已解决）
代码要求填充所在部门，但是十二月空缺的就无法填充，代码应该如何修改，请各位老师指教，谢谢！！
\'填充所在部门
Select Case e.DataCol.Name
Case "姓名"
Dim dr As DataRow = e.DataRow
If dr.IsNull("姓名") Then
dr("所在部门") = Nothing
Else
If dr("部门_十二月") IsNot Nothing Then
dr("所在部门") = dr("部门_十二月")
ElseIf dr("部门_十一月") IsNot Nothing Then
dr("所在部门") = dr("部门_十一月")
ElseIf dr("部门_十月") IsNot Nothing Then
dr("所在部门") = dr("部门_十月")
ElseIf dr("部门_九月") IsNot Nothing Then
dr("所在部门") = dr("部门_九月")
ElseIf dr("部门_八月") IsNot Nothing Then
dr("所在部门") = dr("部门_八月")
ElseIf dr("部门_七月") IsNot Nothing Then
dr("所在部门") = dr("部门_七月")
ElseIf dr("部门_六月") IsNot Nothing Then
dr("所在部门") = dr("部门_六月")
ElseIf dr("部门_五月") IsNot Nothing Then
dr("所在部门") = dr("部门_五月")
ElseIf dr("部门_四月") IsNot Nothing Then
dr("所在部门") = dr("部门_四月")
ElseIf dr("部门_三月") IsNot Nothing Then
dr("所在部门") = dr("部门_三月")
ElseIf dr("部门_二月") IsNot Nothing Then
dr("所在部门") = dr("部门_二月")
Else
dr("所在部门") = dr("部门_一月")
End If
End If
End Select
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目177.table |
-- 发布时间：2011/12/28 13:37:00
-- [求助]请问狐爸，怎么把菜单栏上方的项目标题在左侧显示
\'填充所在部门
Select Case e.DataCol.Name
Case "姓名"
Dim dr As DataRow = e.DataRow
If dr.IsNull("姓名") Then
dr("所在部门") = Nothing
Else
If dr.IsNull("部门_十二月") = False Then
dr("所在部门") = dr("部门_十二月")
ElseIf dr.IsNull("部门_十一月") = False Then
dr("所在部门") = dr("部门_十一月")
ElseIf dr.IsNull("部门_十月") = False Then
dr("所在部门") = dr("部门_十月")
ElseIf dr.IsNull("部门_九月") = False Then
dr("所在部门") = dr("部门_九月")
ElseIf dr.IsNull("部门_八月") = False Then
dr("所在部门") = dr("部门_八月")
ElseIf dr.IsNull("部门_七月") = False Then
dr("所在部门") = dr("部门_七月")
ElseIf dr.IsNull("部门_六月") = False Then
dr("所在部门") = dr("部门_六月")
ElseIf dr.IsNull("部门_五月") = False Then
dr("所在部门") = dr("部门_五月")
ElseIf dr.IsNull("部门_四月") = False Then
dr("所在部门") = dr("部门_四月")
ElseIf dr.IsNull("部门_三月") = False Then
dr("所在部门") = dr("部门_三月")
ElseIf dr.IsNull("部门_二月") = False Then
dr("所在部门") = dr("部门_二月")
Else
dr("所在部门") = dr("部门_一月")
End If
End If
End Select
-- 发布时间：2011/12/28 14:21:00
--
谢谢CZY老师的指教，问题解决了，再次感谢！！