以文本方式查看主题

-  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=58469)
--  作者：hrw68529
--  发布时间：2014/10/17 10:08:00
--  [求助]请修改审核意见生成代码？
如下例：“公员信息表”中的“审核意见”的生成，是根据“人员增减”表生成的，当输入“审核序号”后，在"审核意见"中自动生成内容，代码有问题，不能全部生成，请专家给予修改，代码在datacolchanged中，谢谢
如下例：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2(上传版）.zip

[此贴子已经被作者于2014-10-17 10:08:49编辑过]
--  作者：有点甜
--  发布时间：2014/10/17 10:16:00
--  
 关键是你想是想怎样的逻辑？
--  作者：hrw68529
--  发布时间：2014/10/17 10:34:00
--  
审核意见：当相同的“审核序号”时，根据“渠道”生成，生成的格式为：姓名+原工作单位+渠道+现工作单位。如： 审签序号为公员2014-172，应生成：陈洪杰等18人转任备案；李绪涛等 5人军转安置；张江涛等38人考录公员；郭海涛同志由明港分局科员辞职辞退到,孙安红等30人退休；严克喜等5人死亡；姚丙育等14人调出。
--  作者：有点甜
--  发布时间：2014/10/17 10:53:00
--  

 参考代码

 

If e.DataCol.Name = "审签序号" Then
    If e.DataRow.IsNull(e.DataCol) Then
        e.DataRow("审核意见") = Nothing
    Else
        Dim str As String = ""
        Dim lxs As List(Of String) = DataTables("人员增减").GetValues("渠道", "审签序号 = \'" & e.NewValue & "\'")
        For Each lx As String In lxs
            If lx Like "*辞职*" Then
                For Each dr As DataRow In DataTables("人员增减").Select("审签序号 = \'" & e.NewValue & "\' and 渠道 = \'" & lx & "\'")
                    str &= dr("姓名") & "由" & dr("原工作单位及职务") & lx & "到" & dr("现工作单位及职务") & ";"
                Next
            Else
                Dim drs As List(of DataRow) = DataTables("人员增减").Select("审签序号 = \'" & e.NewValue & "\' and 渠道 = \'" & lx & "\'")
                str &= drs(0)("姓名") & "等" & drs.Count & "人" & lx & ";"
            End If
        Next
        e.DataRow("审核意见") = str.Trim(";") & "."
    End If
   
End If