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

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

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

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	审核流程 Post By：2020/6/4 11:40:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2020/6/4 12:05:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1451.htm

nuoyan88	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2020/6/4 13:18:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2020/6/4 14:10:00 [只看该作者]

Select Case e.DataCol.Name
     Case "审核部门","审核岗位"
          Dim dr As DataRow = e.DataRow
          Dim pr As DataRow
          If dr.IsNull("审核部门") OrElse dr.IsNull("审核岗位") Then
             dr("姓名") = Nothing
          Else

dim dr2 as datarow = e.datatable.find("单据编号='" & dr("单据编号") & "' and 审核顺序 = " & dr("审核顺序")+1)

if dr2 isnot nothing then

              Dim filter As String
             filter = "部门 = '" & dr2("审核部门") & "' And 岗位 = '" & dr2("审核岗位") & "'"
             pr = DataTables("公司人员名单").Find(filter)
             If pr IsNot Nothing Then
                 dr("审核人员") = pr("姓名")
             End If
          End If

end if
End Select

nuoyan88	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2020/6/4 14:50:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2020/6/4 14:53:00 [只看该作者]

同样的用法，使用find查询，然后给控件赋值就行了

nuoyan88	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2020/6/4 22:16:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2020/6/4 22:36:00 [只看该作者]

Dim filter As String = "审核顺序 = '" & e.sender.text & "' and xx列='" & e.Form.Controls("xx控件").text & "'"

nuoyan88	小大 9楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2020/6/4 23:04:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2020/6/5 8:34:00 [只看该作者]

txt3.text = dr("审核部门")

http://www.foxtable.com/webhelp/topics/0750.htm

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

主题：审核流程