Foxtable(狐表)用户栏目专家坐堂 → [求助]find求助


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

主题:[求助]find求助

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]find求助  发帖心情 Post By:2018/11/26 11:44:00 [只看该作者]

  access外部数据,员工资料表姓名列等于当前用户名的行的 个人状态列值,输入按钮下面代码怎么修改求助

If MessageBox.Show("确定你有空了? ","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then

Dim dr As DataRow

dr = DataTables("员工资料").Find("姓名 = '" & _UserName & "'") '找出编号为03的产品

    If dr Is Nothing Then

        dr("个人状态") =  "我有空"

    End If

End If

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/26 11:55:00 [只看该作者]

If MessageBox.Show("确定你有空了? ","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
   
    Dim dr As DataRow
   
    dr = DataTables("员工资料").Find("姓名 = '" & _UserName & "'") '找出编号为03的产品
   
    If dr IsNot Nothing Then
       
        dr("个人状态") =  "我有空"
    Else
        msgbox("没找到")
    End If
   
End If

 回到顶部