主题：数据更新后弹窗提醒

依样画瓢

 

计划管理

 

系统提醒

 

'''

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