Foxtable(狐表)用户栏目专家坐堂 → 关于PopupForm提示窗口的的问题


  共有2160人关注过本帖树形打印复制链接

主题:关于PopupForm提示窗口的的问题

帅哥哟,离线,有人找我吗?
kendyqzj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:391 威望:0 精华:0 注册:2015/5/7 16:03:00
关于PopupForm提示窗口的的问题  发帖心情 Post By:2016/4/13 20:57:00 [只看该作者]

上述问题明白了,
还有一个问题想咨询一下,如截图所示:
我想通过”保存当前行“这个按钮触发一个时间窗口,
窗口类型为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时间窗口,请问问题出在哪里?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/13 21:00:00 [只看该作者]

直接打开不就行了?

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
kendyqzj
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:391 威望:0 精华:0 注册:2015/5/7 16:03:00
  发帖心情 Post By:2016/4/13 21:06:00 [只看该作者]

我是想当不同的人登录该系统,其中一人更改当前某条信息后,
会指定发送一个PopupForm的提示窗口给另一个在使用该系统的人,
就是右下角弹窗提示,show只能在当前系统打开吧?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/13 21:08:00 [只看该作者]

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

 

msgbox(user.name)

msgbox(dr.DataDataTable.Name)


 回到顶部
帅哥哟,离线,有人找我吗?
kendyqzj
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:391 威望:0 精华:0 注册:2015/5/7 16:03:00
  发帖心情 Post By:2016/4/13 21:23:00 [只看该作者]

这个没用过呢,不知道怎么用?

 回到顶部
帅哥哟,离线,有人找我吗?
kendyqzj
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:391 威望:0 精华:0 注册:2015/5/7 16:03:00
  发帖心情 Post By:2016/4/13 21:23:00 [只看该作者]

在线文档有没有一些参考说明之类的?


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部