以下是引用hrw68529在2014-8-14 9:44:00的发言:
上述代码放在哪里,能不能把修改后的软件再发给我看看
请自食其力好吧?最后得到str1和str2,然后你再根据你的代码处理一下替换进去,公 务 员这么懒么
Dim str1 As String = ""
Dim str2 As String = ""
Dim ls As List(Of String()) = Tables("政府会议_任免").DataTable.GetValues("内容|姓名", Tables("政府会议_任免").Filter, "序列号")
For Each s As String() In ls
If s(0).IndexOf("任") > -1 Then
str1 &= s(0).Split(",")(0) & vbcrlf & ""
End If
If s(0).IndexOf("免去") > -1 Then
str2 &= s(0).Substring(s(0).IndexOf("免去")).Replace("其", s(1)) & vbcrlf & ""
End If
Next
msgbox(str1 & str2)