以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  狐表的工作流  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64692)

--  作者:Tmac19920713
--  发布时间:2015/2/27 11:03:00
--  狐表的工作流
新人请问在狐表里怎么做出窗体的工作流啊?

图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看


--  作者:Bin
--  发布时间:2015/2/27 11:04:00
--  
新手建议先按部就班看一遍帮助

帮助有个章节专门介绍工作流

--  作者:Tmac19920713
--  发布时间:2015/2/27 11:09:00
--  
那个帮助文件已经看过了,但是里面的工作流都是基于一张张表格列的,没有讲怎么在窗体中实现工作流
--  作者:Bin
--  发布时间:2015/2/27 11:22:00
--  
完全同理的,问出这样的问题,说明完全没有按部就班看过帮助.  窗口的数据也是来自表的
--  作者:blsu33
--  发布时间:2015/2/27 17:24:00
--  
希望思路能帮助您,涉及角色和权限设置判断能不能编写那一控件,好像不需要流程,我是菜鸟希望您早日解决。

Dim dr As DataRow                                                          ....表和窗口控件数据一致
Dim qjr As String = e.Form.Controls("请假人").Value
dr = DataTables("员工请假").Find("[请假人] = \'" & qjr & "\' ")
If dr IsNot Nothing Then
    e.Form.Controls("TextBox2").Value = dr("请假天数")
    e.Form.Controls("ComboBox1").Value = dr("请假原因")
    ....
End If

If dr("人事经理审批") = True Then                                   ...通过人事的审批的不允许在编辑
e.Form.Controls("人事经理审批备注").Enabled = False
e.Form.Controls("备注").Enabled = False
Else
    e.Form.Controls("人事经理审批备注").Enabled = True
    e.Form.Controls("备注").Enabled = False
End If
else If dr("总经理审批") = True Then                                     ...通过总经理的审批的不允编辑
    e.Form.Controls("总经理审批备注").Enabled = False
    e.Form.Controls("人事经理审批备注").Enabled = False
    e.Form.Controls("备注").Enabled = False
Else
    e.Form.Controls("人事经理审批备注").Enabled = True
    e.Form.Controls("备注").Enabled = True
End If