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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  改错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121158)

--  作者：qinlao666
--  发布时间：2018/6/30 10:00:00
--  改错

Dim ids As String = ""
Dim bhs As String = ""
For Each r As Row In Tables("计划申请表").rows
If r("审核") = False Then
r.Save()
ids &= r("_Identify") & ","
bhs &= r("请购单号") & ","
End If
Next
If ids > "" Then
QQClient.Send("生产部.江雪虹", User.Name & "|+@|" & ids.trim(",") & "|" & bhs.trim(",") ,True)
End If

麻烦老师帮忙改下错

--  作者：有点蓝
--  发布时间：2018/6/30 10:37:00
--
代码没有问题，有什么错？

--  作者：qinlao666
--  发布时间：2018/6/30 16:50:00
--

现在点保存按钮后，没有消息提示框弹出。麻烦老师修改下，谢谢！

1，保存按钮
Dim ids As String = ""
Dim bhs As String = ""
For Each r As Row In Tables("计划申请表").rows
If r("审核") = False Then
r.Save()
ids &= r("_Identify") & ","
bhs &= r("请购单号") & ","
End If
Next
If ids > "" Then
QQClient.Send("生产部.江雪虹", User.Name & "|+@|" & ids.trim(",") & "|" & bhs.trim(",") ,True)
End If

2，审核按钮
If user.name = "江雪虹" Then
Dim r As Row = Tables("计划申请表").Current
r("审核") = True
r("审核人") = User.Name
r("审核日期") = Date.Today()
r.Save()
QQClient.Send(r("请购人"), "-@|" & r("请购单号") & "|" & User.Name)
Else
MessageBox.show("你无审核权限!")
End If

Dim ids As String = ""
Dim bhs As String = ""
For Each r1 As Row In Tables("计划申请表").rows
If r1("审核") = True And r1("审批") = False Then
ids &= r1("_Identify") & ","
bhs &= r1("请购单号") & ","
End If
Next
If ids > "" Then
QQClient.Send("财务部.吴连英","+@|" & ids.trim(",") & "|" & bhs.trim(",") & "|" & User.Name,True)
End If

3，审批按钮
If user.name = "吴连英" Then
Dim r As Row = Tables("计划申请表").Current
r("审批") = True
r("审批人") = User.Name
r("审批日期") = Date.Today()
r.Save()
QQClient.Send(r("请购人"), User.Name & "|-@|" & r("请购单号") )
Else
MessageBox.show("你无审批权限!")
End If

4，项目事件中的systemIdle
If user.name = "江雪虹" Then
If fhs.Count > 0 AndAlso Forms("计划审核").Opened = False Then
Dim pts() As String = fhs(0).Split("|")
fhs.RemoveAt(0)
With Forms("计划审核")
.Open()
.Controls("Label1").Text = pts(0) & "新增计划申请单" & pts(3) & ",请审核!"
.Controls("Label2").Text = pts(2) \'将发货单主健设置为Label2的标题
End With
End If
End If

If user.name = "吴连英" Then
If fhs.Count > 0 AndAlso Forms("计划审批").Opened = False Then
Dim pts1() As String = fhs(0).Split("|")
fhs.RemoveAt(0)
With Forms("计划审批")
.Open()
.Controls("Label1").Text = pts1(2) & "新增计划申请单" & pts1(1) & ",请审批!"
.Controls("Label2").Text = pts1(0) \'将发货单主健设置为Label2的标题
End With
End If
End If

5，客户端receivedmessage
Dim pts() As String = e.Message.Split("|")
If pts.Length = 4 AndAlso pts(0) = user.name \'如果是申请审核消息
fhs.Add(pts(2) & "|" & pts(3) & "|" & pts(0)) \'将主健?单号和制单人合成为一个字符串存储在集合中
ElseIf pts.Length = 4 AndAlso pts(0) = "+@"
fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) \'将主健?单号和制单人合成为一个字符串存储在集合中
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" \'如果是审核通过消息
PopMessage("计划申请表" & pts(1) & "已由" & pts(2) & "审核通过!")
Dim dr As DataRow = DataTables("计划申请表").Find("请购单号 = \'" & pts(1) & "\'")
If dr IsNot Nothing Then
dr.Load
End If
ElseIf pts.Length = 3 AndAlso pts(0) = user.name \'如果是审核通过消息
PopMessage("计划申请表" & pts(1) & "已由" & pts(0) & "审批通过!")
Dim dr As DataRow = DataTables("计划申请表").Find("请购单号 = \'" & pts(1) & "\'")
If dr IsNot Nothing Then
dr.Load
End If
End If

--  作者：有点蓝
--  发布时间：2018/6/30 17:19:00
--
客户端receivedmessage第一行加上
msgbox(e.Message) ‘看接收弹出什么内容？

--  作者：qinlao666
--  发布时间：2018/7/2 10:04:00
--

此主题相关图片如下：qq截图20180702100014.png

--  作者：有点甜
--  发布时间：2018/7/2 10:11:00
--

你5楼的内容，要匹配这句代码？

If pts.Length = 4 AndAlso pts(0) = user.name \'如果是申请审核消息

那弹出 user.name 是什么，看是否匹配。

--  作者：qinlao666
--  发布时间：2018/7/2 10:14:00
--
老师，你是意思是审核人和消息显示的人要匹配吗？

--  作者：有点甜
--  发布时间：2018/7/2 10:17:00
--

以下是引用qinlao666在2018/7/2 10:14:00的发言：
老师，你是意思是审核人和消息显示的人要匹配吗？

你代码是这样写的啊。不然你就改成

If pts.Length = 4 AndAlso pts(1) = "+@" \'如果是申请审核消息

fhs.Add(pts(2) & "|" & pts(3) & "|" & pts(0)) \'将主健?单号和制单人合成为一个字符串存储在集合中