Foxtable(狐表)用户栏目专家坐堂 → BeforeSelChange事件


  共有1614人关注过本帖平板打印复制链接

主题:BeforeSelChange事件

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


加好友 发短信
等级:二尾狐 帖子:500 积分:5397 威望:0 精华:0 注册:2009/2/5 13:09:00
BeforeSelChange事件  发帖心情 Post By:2018/8/7 11:56:00 [只看该作者]

下面的代码,,放在BeforeSelChange事件里项目打不开,不知道是那有冲突?
Dim r As Row = Tables("派工").Current
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & "派工" & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next

 回到顶部