主题：[求助]word模板及[列表]代码怎么修改？

明天我给你做个简本，再给你传，谢谢

 

删除不必要的表，删除不必要的数据。保留一点数据即可。

好的，谢谢美女

上传文件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2014开发公日常登记管理系统_201408140752.rar

请有点甜给予指导，看能不能按“拟任职务”和“拟免职务”进行区分，“提请任命：[列表]”，“提请免去：[列表1]”

如：叶青，既有任命，又有免去，怎么做？

在“提请方案”上

 如下获取字符串，你自己在弄一下即可。

 
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)

上述代码放在哪里，能不能把修改后的软件再发给我看看