依样画瓢
计划管理
系统提醒
'''
Static ib As Boolean
Dim f As WinForm.Form = Forms("系统提醒")
Dim fw As Integer = 250
Dim fh As Integer = 250
Dim k As Integer = 1
If k > 0 AndAlso f.Opened = False Then
f.Open(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight)
End If
If f.Opened Then
Dim h As Integer = SysInfo.ScreenHeight - SysInfo.WorkingAreaHeight + fh
If f.BaseForm.Top > SysInfo.WorkingAreaHeight - fh Then
For i As Integer = 1 To h
f.setbounds(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight-i,fw-19,fh)
Next
End If
End If
是按照时间间隔 弹窗提醒 我想达成这样的效果 比如说 调度部把配载好的数据提交到客服部时 客服部收到弹窗提醒有多少条数据已经提交过来 请跟进 相应的客服部完成工作后提交到下一部门 下一部门也收到提醒 以此类推 只要收到提醒的部门不对弹窗做出相应操作 会一直按时间间隔重复提醒 直到标记已读 我在论坛上搜 有这方面的需求 但是都没有做到最好的效果 能否不需要编辑提醒信息 也就是说不建立提醒事件表 把触发提醒事件加载到提交按钮中内容为
调度部提交 "& count &" 到客服部 以此类推 客服到统计 count如果为零则不触发 用户有分组 "调度,客服,统计,车队" 请教红版能否在下面的代码中增加
Dim Cols1() As String = {"甲方客户","项目","下单日期","MK号","DO号","城市","客户","送货地址","物料代码","数量","体积","重量","承运商","司机","车牌","车数","车型","出车日期","车辆属性","备注","特殊要求","司机搬运费","跟车搬运","人数","订单编号"}
Dim Cols2() As String = {"甲方客户","项目","下单日期","MK号","DO号","城市","客户","送货地址","物料代码","数量","体积","重量","承运商","司机","车牌","车数","车型","出车日期","车辆属性","备注","特殊要求","司机搬运费","跟车搬运","人数","订单编号"}
Dim count As Integer = 0
Dim ls As new List(of Row)
Dim dic As new Dictionary (Of DataRow, Row)
systemready = False
For Each r As Row In Tables("配载订单").GetCheckedRows
If r.IsNull("订单编号") = False
Dim Filter = "[订单编号] = '" & r("订单编号") & "'"
Dim dr As DataRow = DataTables("客服跟单").sqlFind(filter)
If dr Is Nothing Then
ls.Add(r)
count += 1
Else
dic.add(dr, r)
End If
End If
Next
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
If ls.count > 0 Then
p.Visible = True
p.Maximum = ls.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
End If
Dim idx As Integer = 0
DataTables("配载订单").StopRedraw
For Each r As Row In ls
Dim dr As DataRow = DataTables("客服跟单").AddNew
For i As Integer = 0 To Cols1.Length -1
If r.IsNull(Cols1(i)) Then
dr(Cols2(i)) = Nothing
Else
dr(Cols2(i)) = r(Cols1(i))
End If
Next
idx += 1
p.Value = idx
r("订单状态") = "已提交"
'r.Remove()
Next
For Each key As DataRow In dic.Keys
Dim r As Row = dic(key)
Dim dr As DataRow = key
For i As Integer = 0 To Cols1.Length -1
If r.IsNull(Cols1(i)) Then
dr(Cols2(i)) = Nothing
Else
dr(Cols2(i)) = r(Cols1(i))
End If
Next
Next
DataTables("配载订单").ResumeRedraw
p.Visible = False
systemready = True
msgbox("共有 "& count &" 条数据提交" )
Tables("配载订单").save
Tables("配载订单").ClearCheckedRows
加好友 
发短信
Post By：2016/1/7 14:25:00 [只看该作者]
此主题相关图片如下：2016-01-07_173635.jpg