- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自定义流程通知窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125787)
-- 发布时间：2018/10/7 11:05:00
-- 自定义流程通知窗口
在帮助的基础上想实现,员工.陈晓燕 制单→主管.胡军 审核→经理.周明批准 在点击批准按钮以后,有一段代码没有显示出来(在制单陈晓燕处有一个提示信息已批准通过),谢谢!
QQClient.Send("员工.陈夏燕","-@|" & r("单号") & "|" & User.Name) \'为什么这段代码的结果没有显示出来?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:内置验证qqserver.foxdb |
[此贴子已经被作者于2018/10/7 19:14:56编辑过]
-- 发布时间：2018/10/7 11:35:00
--
项目SystemIdle事件
Dim Str1 As String = "用户: " & User.Name
Str1 = Str1 & " 用户分组: " & user.group
StatusBar.Message1 = Str1
If fhs.Count > 0 AndAlso Forms("审核申请").Opened = False Then
Dim ptn() As String = fhs(0).Split("|")
fhs.RemoveAt(0)
With Forms("审核申请")
.Open()
.Controls("Label1").Text = ptn(2) & "新增订货单" & ptn(1) & ",请审核!"
.Controls("Label2").Text = ptn(0) \'将发货单主健设置为Label2的标题
End With
End If
If pzs.Count > 0 AndAlso Forms("批准申请").Opened = False Then
Dim ptn() As String = pzs(0).Split("|")
pzs.RemoveAt(0)
With Forms("批准申请")
.Open()
.Controls("Label1").Text = ptn(2) & "新增订货单" & ptn(1) & ",请批准!"
.Controls("Label2").Text = ptn(0) \'将发货单主健设置为Label2的标题
End With
End If
-- 发布时间：2018/10/7 20:12:00
-- 回复：（有点蓝）项目SystemIdle事件Dim Str1 As Stri...
老师,上午的问题我已经解决了,有新的问题我已经重新编辑过了,帮我看下吧,谢谢!
-- 发布时间：2018/10/8 9:21:00
--
你的意思是这段代码没有执行？那你加上msgbox，弹出信息，看是否进入执行了里面的代码
ElseIf ptn.Length = 3 AndAlso ptn(0) = "-@" \'如果是审核通过消息
PopMessage("订单" & ptn(1) & "已由" & ptn(2) & "批准通过!")
Dim dr As DataRow = DataTables("订单").Find("单号 = \'" & ptn(1) & "\'")
If dr IsNot Nothing Then
dr.Load
End If
End If