以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取表中某列的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101329)
--  作者：peibaomin
--  发布时间：2017/5/28 16:53:00
--  获取表中某列的数据

e.form.controls("Textbox2").Text = Tables("pos机库存资料").Current("客户姓名")
Dim dr As DataRow = DataTables("pos机库存资料").Find("机具条码=\'013610370586\'")
If dr IsNot Nothing Then
  e.form.controls("Textbox2").Text = dr("客户姓名")
End If

 

麻烦看看这句代码对吗？怎么显示不了数据呢？

 

第一次对，第二次123456 第三次是空

[此贴子已经被作者于2017/5/28 17:28:30编辑过]
--  作者：有点色
--  发布时间：2017/5/28 16:57:00
--  

执行下面的代码，看弹出什么

 

e.form.controls("Textbox2").Text = Tables("pos机库存资料").Current("客户姓名")

msgbox(Tables("pos机库存资料").Current("客户姓名"))
Dim dr As DataRow = DataTables("pos机库存资料").Find("机具条码=\'013610370586\'")
If dr IsNot Nothing Then

    msgbox(123456)

    msgbox(dr("客户姓名"))
    e.form.controls("Textbox2").Text = dr("客户姓名")
End If