以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于PopupForm提示窗口的的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83644)

--  作者:kendyqzj
--  发布时间:2016/4/13 20:57:00
--  关于PopupForm提示窗口的的问题
上述问题明白了,
还有一个问题想咨询一下,如截图所示:
我想通过”保存当前行“这个按钮触发一个时间窗口,
窗口类型为PopupForm的提示窗口
客户端的ReceiveMessgae的判断代码如下:
If User.Name = "yoko" And dr.DataTable.Name = "total"  Then
    If dr IsNot Nothing AndAlso dr.IsNull("面试状态") Then
        Forms("审核提示").Open()
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160413201343.jpg
图片点击可在新窗口打开查看
    ElseIf User.Name = "may" Then
        Forms("审核申请").Open()
    ElseIf User.Name = "anna" Then
        Forms("入职申请").Open()
End If
End If

保存当前行 这个的按钮的代码如下:
Dim r As Row  = Tables("total").Current
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
QQClient.Send("yoko","+@|" & r("序号") & "|" & r("姓名") & "|" & User.Name)
Dim msg As String = p & "total" & "#" & r("序号")
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next
MessageBox.Show("已成功保存!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
Forms("人事详情").Close()
实际保存后并没有触发相应的PopupForm时间窗口,请问问题出在哪里?谢谢

--  作者:大红袍
--  发布时间:2016/4/13 21:00:00
--  

直接打开不就行了?

 

Forms("你的窗口名").Show


--  作者:kendyqzj
--  发布时间:2016/4/13 21:06:00
--  
我是想当不同的人登录该系统,其中一人更改当前某条信息后,
会指定发送一个PopupForm的提示窗口给另一个在使用该系统的人,
就是右下角弹窗提示,show只能在当前系统打开吧?

--  作者:大红袍
--  发布时间:2016/4/13 21:08:00
--  

去MessgaeReceive事件,加入msgbox弹出值看一看

 

msgbox(user.name)

msgbox(dr.DataDataTable.Name)


--  作者:kendyqzj
--  发布时间:2016/4/13 21:23:00
--  
这个没用过呢,不知道怎么用?
--  作者:kendyqzj
--  发布时间:2016/4/13 21:23:00
--  
在线文档有没有一些参考说明之类的?


--  作者:大红袍
--  发布时间:2016/4/13 21:49:00
--  

 也就是在你的 MessgaeReceive 事件这样写代码,肯定要触发事件,触发里面的代码才能open窗口的啊。

 

msgbox(user.name)
msgbox(dr.DataDataTable.Name)

If User.Name = "yoko" And dr.DataTable.Name = "total"  Then
    If dr IsNot Nothing AndAlso dr.IsNull("面试状态") Then
        Forms("审核提示").Open()
    ElseIf User.Name = "may" Then
        Forms("审核申请").Open()
    ElseIf User.Name = "anna" Then
        Forms("入职申请").Open()
    End If
End If