主题：[求助]如何进行判断，然后再进行字符连接

Dim s As String

If e.DataCol.Name = "审签序号" AndAlso e.DataRow.IsNull(e.DataCol) = False Then

    Dim drs As List(Of DataRow) = DataTables("人员增减").Select("审签序号 = '" & e.DataRow(e.DataCol) & "'")

    If drs.Count = 1 Then

        e.DataRow("审核意见") = "   " & drs(0)("姓名") & "同志由" & drs(0)("原工作单位及职务") & drs(0)("渠道") & "到" & drs(0)("现工作单位及职务") & "."

    ElseIf drs.Count > 1 Then

        e.DataRow("审核意见") = Nothing

        For Each dr As DataRow In drs

            Dim drlst As List(Of DataRow) = DataTables("人员增减").Select("审签序号 = '" & e.DataRow(e.DataCol) & "' And 渠道 = '" & dr("渠道") & "'")

            If drlst.Count = 1 Then

                s + = dr("姓名") & "同志由" & dr("原工作单位及职务") & dr("渠道") & "到" & dr("现工作单位及职务") & ","

            ElseIf drlst.Count > 1 Then

                e.DataRow("审核意见") = dr("姓名") & "等" & drlst.Count & "名同志系" & dr("渠道") & "人员" & "."

            End If

        Next

        e.DataRow("审核意见") = "   " & s & e.DataRow("审核意见")

    End If

End If