[求助]word模板及[列表]代码怎么修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]word模板及[列表]代码怎么修改？

共有5312人关注过本帖树形打印复制链接主题：[求助]word模板及[列表]代码怎么修改？

hrw68529

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/13 17:45:00 [只看该作者]

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

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/13 17:46:00 [只看该作者]

以下是引用hrw68529在2014-8-13 17:44:00的发言：
数据库传不上去

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

hrw68529

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/13 17:48:00 [只看该作者]

好的，谢谢美女

hrw68529

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 7:58:00 [只看该作者]

上传文件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:2014开发公日常登记管理系统_201408140752.rar

hrw68529

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 7:59:00 [只看该作者]

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

hrw68529

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 8:17:00 [只看该作者]

按以下模板做行不：关键是如果一个人既有任命，又有免去，怎么操作？

市人大常委会：

根据《中华人民共和国地方各级人民代表大会和地方各级人民政府组织法》第四十四条第十款和《大阳市人民代表大会常务委员会任免地方国家机关工作人员办法》第八条第三款的规定，提请任命：

周林同志任信阳市体育局局长;

胡亚同志任人民政府秘书长;

叶青同志任水利局局长;

李东同志任城乡规划管理局局长;

霍宏同志任食品药品监督管理局局长;

谢之同志任国有资产监督管理委员会主任;

张英同志任城市管理综合执法局局长;

王玲同志任商务局局长;

提请免去：

免去胡亚同志城市管理综合执法局局长职务;

免去叶青同志体育局局长职务;

免去李民同志人民政府秘书长职务;

免去熊涛同志国有资产监督管理委员会主任职务;

免去翁先同志水利局局长职务;

免去张友同志商务局局长职务;

免去刘大勇同志城乡规划管理局局长职务;

请审议。

hrw68529

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 8:18:00 [只看该作者]

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

hrw68529

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 8:28:00 [只看该作者]

在“提请方案”上

有点甜

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/14 9:30:00 [只看该作者]

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

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)

[此贴子已经被作者于2014-8-14 9:30:17编辑过]

hrw68529

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 9:44:00 [只看该作者]

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

下一主题 >> << 上一主题

总数 40 上一页 1 2 3 4 下一页

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