以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]find求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127965)
--  作者：湛江智
--  发布时间：2018/11/26 11:44:00
--  [求助]find求助
  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
--  作者：有点甜
--  发布时间：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