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