下列代码怎么改？
wrt.Replace("[列表]",Tables("政府会议_任免").DataTable.GetComboListString("内容",Tables("政府会议_任免").Filter,"序列号").Replace("|",vbcrlf & ""))
例如：1、现在能打出来的文件
市人大常委会：
根据《中华人民共和国地方各级人民代表大会和地方各级人民政府组织法》第四十四条第十款和《大阳市人民代表大会常务委员会任免地方国家机关工作人员办法》第八条第三款的规定，提请任命：
周林同志任信阳市体育局局长;
免去李民同志人民政府秘书长职务;
免去熊涛同志国有资产监督管理委员会主任职务;
免去翁先同志水利局局长职务;
免去张友同志商务局局长职务;
免去刘大勇同志城乡规划管理局局长职务;
胡亚同志任人民政府秘书长,免去其城市管理综合执法局局长职务;
叶青同志任水利局局长,免去其体育局局长职务;
李东同志任城乡规划管理局局长;
霍宏同志任食品药品监督管理局局长;
谢之同志任国有资产监督管理委员会主任;
张英同志任城市管理综合执法局局长;
王玲同志任商务局局长;
请审议。
2、想变成这样的文件（就是任命的放在一起，免去的放在一起）
市人大常委会：
根据《中华人民共和国地方各级人民代表大会和地方各级人民政府组织法》第四十四条第十款和《大阳市人民代表大会常务委员会任免地方国家机关工作人员办法》第八条第三款的规定，提请任命：
周林同志任信阳市体育局局长;
胡亚同志任人民政府秘书长;
叶青同志任水利局局长;
李东同志任城乡规划管理局局长;
霍宏同志任食品药品监督管理局局长;
谢之同志任国有资产监督管理委员会主任;
张英同志任城市管理综合执法局局长;
王玲同志任商务局局长;
提请免去：
免去胡亚同志城市管理综合执法局局长职务;
免去叶青同志体育局局长职务;
免去李民同志人民政府秘书长职务;
免去熊涛同志国有资产监督管理委员会主任职务;
免去翁先同志水利局局长职务;
免去张友同志商务局局长职务;
免去刘大勇同志城乡规划管理局局长职务;
请审议。
加好友 
发短信
Post By：2014/8/13 17:14:00 [只看该作者]
