主题：[求助]请修改审核意见生成代码？

如下例：“公员信息表”中的“审核意见”的生成，是根据“人员增减”表生成的，当输入“审核序号”后，在"审核意见"中自动生成内容，代码有问题，不能全部生成，请专家给予修改，代码在datacolchanged中，谢谢

 关键是你想是想怎样的逻辑？

审核意见：当相同的“审核序号”时，根据“渠道”生成，生成的格式为：姓名+原工作单位+渠道+现工作单位。如： 审签序号为公员2014-172，应生成：陈洪杰等18人转任备案；李绪涛等 5人军转安置；张江涛等38人考录公员；郭海涛同志由明港分局科员辞职辞退到,孙安红等30人退休；严克喜等5人死亡；姚丙育等14人调出。

 参考代码

 

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