以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教 进货单窗口问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60878)

--  作者:jswjyjf
--  发布时间:2014/12/3 9:59:00
--  请教 进货单窗口问题


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

 

加了 Tables("进货单").current("仓库编码")=dr("编码")

 

仓库控件的值始终为空值 为啥呢


--  作者:Bin
--  发布时间:2014/12/3 10:01:00
--  
把.VALUE  改为 .text
--  作者:有点甜
--  发布时间:2014/12/3 10:02:00
--  
 Value 改成 Text 试试
--  作者:jswjyjf
--  发布时间:2014/12/3 10:06:00
--  

还是不行

if  后面加个msgbox 就行

奇怪


--  作者:Bin
--  发布时间:2014/12/3 10:07:00
--  
请上例子.
--  作者:有点甜
--  发布时间:2014/12/3 10:07:00
--  
 就是 value 和 text 的问题。 自己弹出值看一下
--  作者:jswjyjf
--  发布时间:2014/12/3 10:48:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目78.foxdb


--  作者:有点甜
--  发布时间:2014/12/3 10:59:00
--  

 写到 SelectedIndexChanged 事件

 

Dim dr As DataRow
dr = DataTables("仓库").Find("名称 =\'" & e.Form.Controls("ComboBox1").text & "\'")
If dr IsNot Nothing Then \'如果找到的话
    Tables("进货单").current("仓库编码") = dr("编码")
End If


--  作者:jswjyjf
--  发布时间:2014/12/3 11:05:00
--  

谢谢甜老师