主题：如何判定一个字符串中包含某字符的个数

找到了解决办法，大家看看，还有更简单的办法没有

Dim v As String
Dim s As new StringBuilder
Dim cr As Row = Tables("干部信息").Current
s.Append(cr("姓名") & ",")
s.Append(IIF(cr.Isnull("性别"),"",cr("性别") & ","))
s.Append(IIF(cr.Isnull("出生年月"),"",format(cr("出生年月"),"yyyy-MM") & ","))
v = s.Tostring
Output.Show(v)

比较完善的解决办法，分享给大家

'''
If Tables("干部信息").Rows.Count > 0 Then
    For i As Integer = Tables("干部信息").TopPosition To Tables("干部信息").BottomPosition
        Dim v As String
        Dim s As new StringBuilder
        Dim cr As Row = Tables("干部信息").Rows(i)
        s.Append("    " & cr("姓名") & "，")
        s.Append(IIF(cr.Isnull("性别"),"",cr("性别") & "，"))
        s.Append(IIF(cr.Isnull("民族"),"",cr("民族") & "，"))
        s.Append(IIF(cr.Isnull("籍贯"),"",cr("籍贯") & "人，"))
        s.Append(IIF(cr.Isnull("出生年月"),"",format(cr("出生年月"),"yyyy年M月") & "出生，"))
        s.Append("现在" & IIF(cr.Isnull("工作单位"),"",cr("工作单位") & "工作。"))
        v = s.Tostring
        MessageBox.Show(v)
    Next
End If