Foxtable(狐表)用户栏目专家坐堂 → [求助]多表取值赋值到窗口文本框控件


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

主题:[求助]多表取值赋值到窗口文本框控件

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


加好友 发短信
等级:小狐 帖子:396 积分:3297 威望:0 精华:0 注册:2014/12/13 14:35:00
[求助]多表取值赋值到窗口文本框控件  发帖心情 Post By:2017/3/6 11:14:00 [只看该作者]

请教:

      现有如下几个表:

 


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

      

      设计窗口如下:

 

 


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

 

 

问题:

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

请教:

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

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

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:396 积分:3297 威望:0 精华:0 注册:2014/12/13 14:35:00
回复:(有点色)1、下面的东西,不要绑定绑定表列。...  发帖心情 Post By:2017/3/6 14:50:00 [只看该作者]

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

 

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

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

 

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

 

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

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

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/6 15:57:00 [只看该作者]

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

 

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


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


加好友 发短信
等级:小狐 帖子:396 积分:3297 威望:0 精华:0 注册:2014/12/13 14:35:00
回复:(有点色)?既然是产品录入窗口,那你就做...  发帖心情 Post By:2017/3/6 16:07:00 [只看该作者]

主表就是他的主要信息!

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

 

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

 

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

 

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

 

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

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

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

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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


 回到顶部