Foxtable(狐表)用户栏目专家坐堂 → 困惑


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

主题:困惑

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


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/5/6 22:54:00 [显示全部帖子]

Dim dr As DataRow

    dr = DataTables("会员表").Find("[会员编号]= '  e.Form.Controls("gysname").value '")

    If dr IsNot Nothing Then

        If forms("窗口").Opened Then

           

            forms("窗口").Controls("TextBox01").value=dr("姓名")

            forms("窗口").Controls("TextBox1").value=dr("性别")

           else

return

end if


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


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/5/6 22:55:00 [显示全部帖子]

差不多这样吧,你可以多看看帮助

这些都可以自己写的

用手机编写的,可能会错误,但是思路没有问题


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


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/5/7 10:01:00 [显示全部帖子]

直接把我的代码写在按钮中,一样的效果

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


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/5/8 0:23:00 [显示全部帖子]

恩,手机编写的,没有测试,思路正确,慢慢调试

你的正解


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


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/5/8 0:25:00 [显示全部帖子]

dr = DataTables("会员表").Find("[会员编号]= ' " & e.Form.Controls("gysname").value & " ' ")这个也是正确的,你试试看


 回到顶部