- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]自定义信息提示窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82914)
-- 发布时间：2016/3/27 18:15:00
-- [求助]自定义信息提示窗口
项目SystemIdle事件 代码如下 前两天用的好好的 今天出现错误 请看图片 请大师帮我看一下是哪里问题 谢谢您
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(2) & " 订单--" & pts(1) & "款,样衣或面料没有OK--请修正!"
.Controls("Label2").Text = pts(0)
End With
End If
If fhsf.Count > 0 AndAlso Forms("裁床审核通知").Opened = False Then \' 审核裁数
Dim pts() As String = fhsf(0).Split("|")
fhsf.RemoveAt(0)
With Forms("裁床审核通知")
.Open()
.Controls("Label1").Text = pts(2) & "新增裁床单" & pts(1) & ",请审核!"
.Controls("Label2").Text = pts(0)
End With
End If
If fhsd.Count > 0 AndAlso Forms("补裁申请通知").Opened = False Then \' 补裁申请
Dim pts() As String = fhsd(0).Split("|")
fhsd.RemoveAt(0)
With Forms("补裁申请通知")
.Open()
.Controls("Label1").Text = pts(2) & " 订单--" & pts(1) & "款,需要补裁 请您确认!"
.Controls("Label2").Text = pts(0)
End With
End If
If fhsg.Count > 0 AndAlso Forms("生产修正通知").Opened = False Then \' 补裁申请
Dim pts() As String = fhsg(0).Split("|")
fhsg.RemoveAt(0)
With Forms("生产修正通知")
.Open()
.Controls("Label1").Text = pts(2) & " 订单--" & pts(1) & "款,裁片工艺未回厂 或 辅料没有OK--请修正!"
.Controls("Label2").Text = pts(0)
End With
End If
此主题相关图片如下：00.jpg
[此贴子已经被作者于2016/3/27 18:15:04编辑过]
-- 发布时间：2016/3/27 19:23:00
--
呃，你菜单的问题吧？你做什么操作后报错的？那就去看那个操作的代码。 项目，client
跟你 SystemIdle 有什么关系？
-- 发布时间：2016/3/27 19:39:00
--
Dim r As Row = Tables("生产进度表").Current
Tables("生产进度表").Current("发送人") = User.Group & "." & User.name
r.Save()
QQClient.Send(a,"+@|" & r("_Identify") & "|" & r("款号") & "|" & User.Name)
Tables("生产进度表").Current("发送人") = User.Group & "." & User.name
r.Save()
QQClient.Send(a,"+@|" & r("_Identify") & "|" & r("款号") & "|" & User.Name)
在A电脑执行以上代码 在B电脑显示刚才哪个错误 点击菜单里面的东西都没问题 谢谢
-- 发布时间：2016/3/27 20:47:00
--
[此贴子已经被作者于2016/3/27 20:47:00编辑过]
-- 发布时间：2016/3/27 20:49:00
--
1、是不是 生产进度表 一行数据都没有？
2、如果不是1，那就应该是你 ReceivedMessage 事件有问题。
-- 发布时间：2016/3/27 21:26:00
--
不知道到底哪里问题 东搞西搞又好了 谢谢您
[此贴子已经被作者于2016/3/27 21:30:21编辑过]