Foxtable(狐表)用户栏目专家坐堂 → [求助]数据记录


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

主题:[求助]数据记录

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/19 17:54:00 [只看该作者]

回9楼

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/19 17:56:00 [只看该作者]

Dim psd As String
If InputValue(psd,"验证","请输入密码") '输入密码
    If psd = "521" Then '如果密码正确
        Dim r As Row = Tables("BOM数据库").Current
        Dim msg As String = "D#BOM数据库" & "#" & r("_Identify")
        r.Delete()
        r.save
        For Each bd As QQBuddy In QQClient.Buddies
            If bd.Online Then
                QQClient.Send(bd.name, msg)
            End If
        Next
    Else
        Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

 回到顶部
总数 12 上一页 1 2