以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]多表取值赋值到窗口文本框控件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97099)

--  作者:13865161910
--  发布时间:2017/3/6 11:14:00
--  [求助]多表取值赋值到窗口文本框控件

请教:

      现有如下几个表:

 


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

      

      设计窗口如下:

 

 


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

 

 

问题:

由于窗口根据产品编码表/关联表的"装车位置"列,设计了F(前片信息)尺寸/R(后片信息)尺寸,需要从表中取值做判断,将关联表中的宽高后尺寸,赋值到窗口中,使其预览主表信息时,下方的图片、尺寸随之变动。

请教:

窗口的代码如何编译?代码是否写在afterload中?

[此贴子已经被作者于2017/3/6 11:16:36编辑过]

--  作者:有点色
--  发布时间:2017/3/6 11:39:00
--  

1、下面的东西,不要绑定绑定表列。

 

2、直接查询对应的值填入。比如

 

Dim fdr As DataRow = DataTables("某表").find("某列 = \'" & Tables("某表").Current("某列") & "\'")

If fdr IsNot Nothing Then

    e.Form.Controls("Textbox1").text = fdr("某列")

    e.Form.Controls("Textbox2").text = fdr("某列")

End If


--  作者:13865161910
--  发布时间:2017/3/6 14:50:00
--  回复:(有点色)1、下面的东西,不要绑定绑定表列。...

此窗口设计既是后台数据前台展示的窗口,又是一个产品录入的窗口

 

如果我想在查阅主表数据时,其下面的产品尺寸也对应显示出来,能否请教,按照您的方式代码如何编译?!

尺寸是根据装车位置列做判断赋值到对应文本框的

 

想学习一下,概念可能还有点模糊!

 

主表中有个前片编码,后片编码,这是值是与参考号表中的值有对应的!而产品编码表的值是取自参考号中的某一列的值作为代表,然后附上产品宽、高、厚尺寸等信息!

[此贴子已经被作者于2017/3/6 14:51:02编辑过]

--  作者:有点色
--  发布时间:2017/3/6 15:57:00
--  

 既然是产品录入窗口,那你就做错了。每种车型,对应的配置都是不同的。

 

 你应该做一个前片明细表,一个厚片明细表,或者是把需要的信息,都弄在车型信息表里面去。


--  作者:13865161910
--  发布时间:2017/3/6 16:07:00
--  回复:(有点色)?既然是产品录入窗口,那你就做...

主表就是他的主要信息!

每个车型,也就品牌,车型、年份、排量不同,所以对应的产品不同。

 

客户查询资料是已车型为条件,获取车辆的前后装配信息!

 

目前设计的窗口一是录入车型,而是将前后产品的信息附上,因为虽然车型不同,但很多产品是通用的!这就是通用查询的界面,所有产品本身的编码、尺寸、图片是固定的!

 

如果将所有信息都放入一个表中,就会形成重复录入的工作!浪费时间!

 

看主表中:一个车型可能因为年份或排量不同,后面的产品对应的编码就变了! 

所以我将编号单独拿出来,行程个独立的表,包含尺寸、与其他通用编码!与主表关联!这样,每次我只要在主表中输入编号,就会总动关联上图片及尺寸信息!

[此贴子已经被作者于2017/3/6 16:10:42编辑过]

--  作者:有点色
--  发布时间:2017/3/6 16:41:00
--  

 既然只是查询信息,那就直接查核赋值

 

Dim fdr As DataRow = DataTables("某表").find("某列 = \'" & Tables("某表").Current("某列") & "\'")

If fdr IsNot Nothing Then

    e.Form.Controls("Textbox1").text = fdr("某列")

    e.Form.Controls("Textbox2").text = fdr("某列")

End If