流程图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 流程图

共有2695人关注过本帖树形打印复制链接主题：流程图

有点蓝

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

加好友

发短信

等级：超级版主帖子：106163 积分：539932 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/31 16:17:00 [显示全部帖子]

在上面代码最后，再添加一个按钮咯

有点蓝

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

加好友

发短信

等级：超级版主帖子：106163 积分：539932 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/31 17:19:00 [显示全部帖子]

这个？

e.form.controls(dr1("流程编号")).Image = GetImage("进度2.png")

有点蓝

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

加好友

发短信

等级：超级版主帖子：106163 积分：539932 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/31 21:53:00 [显示全部帖子]

按钮名称就是"审核人角色"，那么查流程表获取比如总经理审核之前的"审核人角色"，作为控件名取控件就行了

Dim dr As Row = Tables("测试表").Current
Dim dr1 As DataRow = DataTables("审核流程表").SQLFind("表名称 = '测试表' And 审核状态='" & dr("审批状态") & "'")

for each s as string in DataTables("审核流程表").SQLgetvalues("审核人角色","表名称 = '测试表' And 流程编号 < " & dr1"流程编号"))

e.form.controls(s).Image = GetImage("进度2.png")

有点蓝

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

加好友

发短信

等级：超级版主帖子：106163 积分：539932 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/1 11:11:00 [显示全部帖子]

去掉样式，参考：http://www.foxtable.com/webhelp/topics/0770.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：106163 积分：539932 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/1 11:23:00 [显示全部帖子]

看1楼呀

有点蓝

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

加好友

发短信

等级：超级版主帖子：106163 积分：539932 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/1 13:44:00 [显示全部帖子]

可以考虑在第一次绘制流程图的时候就获取当前流程状态，编号小的就绑定图片2，编号等于大于当前流程状态的就绑定图片1，而不是等生成之后再改图片。另外完成按钮放到循环之外，而不是每循环一个状态就添加一个完成按钮。

建议还是花点时间从头学学编程基础。

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

主题：流程图