以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72301)

--  作者:ZDG
--  发布时间:2015/7/27 21:29:00
--  [求助]代码
请问各位老师,我有一个窗口,里面有一个下拉组合框“品号”和一个文本框“品名”,且该下拉组合框的下拉窗口有多个窗口使用,我想在选择了品号的同时品名也能自动跳出来,应该在哪里写代码,怎样写,是不是e.form.controls("textbox1").text=.current(品名)
--  作者:大红袍
--  发布时间:2015/7/27 21:49:00
--  

下拉组合框 的TextChanged事件写代码

 

Dim fdr As DataRow = DataTables("表A").Find("品号 = \'" & e.Sender.Text & "\'")

If fdr IsNo Nothing Then

    e.form.controls("textbox1").text = fdr("品名")

End If


--  作者:ZDG
--  发布时间:2015/7/27 22:00:00
--  
太感谢老师了
--  作者:ZDG
--  发布时间:2015/7/27 22:06:00
--  
类型datarow无法转换为boolean
--  作者:大红袍
--  发布时间:2015/7/27 22:09:00
--  

Dim fdr As DataRow = DataTables("表A").Find("品号 = \'" & e.Sender.Text & "\'")

If fdr IsNot Nothing Then

    e.form.controls("textbox1").text = fdr("品名")

End If


--  作者:ZDG
--  发布时间:2015/7/27 22:28:00
--  

再问个问题,列表项目,能不能多个表共用一个模式窗口,如果能,怎样判断把数据写入哪个表


--  作者:大红袍
--  发布时间:2015/7/27 22:29:00
--  

 打开窗口之前,用一个变量记录是哪个表打开的。

 

 vars("表名") = "表A"


--  作者:ZDG
--  发布时间:2015/7/27 22:45:00
--  

能不能来个实际例子啊,这样看不懂

 


--  作者:大红袍
--  发布时间:2015/7/27 22:47:00
--  
 上传你的例子。
--  作者:ZDG
--  发布时间:2015/7/27 22:49:00
--  
比如以“添加物料窗口”,“产品结构表”,“领料明细表”为例,该怎样写,写在哪里