VFP问题,怎样把组合框与数据库表中的数据联系起来?

smile246 2003-12-19 05:45:54
各位高手!在工作中碰到了问题,希望大家帮帮忙!
我想用一个组合框,它可下拉五种型号的机种,比如UN型、UA型.....
点击UN型后显示UN表中的规格参数,点击UA型后显示UA数据表中的参数,
我做了六张表,五张为各自的参数表,一张为就一个字段的型号,我在
组合框中已用生成器把这张型号的表加进去了,而且我也把它跟其他五张表关联了,但还是不能出来想要的效果!哪位高手帮帮忙!
我在组合框中应该怎样编程?
...全文
348 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
smile246 2003-12-23
  • 打赏
  • 举报
回复
谢谢!
smile246 2003-12-21
  • 打赏
  • 举报
回复
当时我也说可以放在一张表上,但我领导说把他分开放我也没办法,现在再把他复制过来实在很麻烦!我现在选了UN型做了张向导表单,在上面加了个组合框,又做了表单集。
在组合框的interactivechange代码如下:
DO CASE
CASE this.combol1.value=1
thisformset.form1 do form b1-un
CASE this.combol1.value=2
thisformset.form2 do form b1-un2h
CASE this.combol1.value=3
thisformset.form3 do form b1-ua
CASE this.combol1.value=4
thisformset.form4 do form b1-unu
CASE this.combol1.value=5
thisformset.form5 do form b1-unacc
ENDCASE
其中b1-un、b1-un2h、b1-ua、b1-unu、b1-unacc都是我用向导做的表单。
但是它就是说有错误,能帮我更正吗?
另外我有个问题:我先用标签框写了标题,再向画个矩形填充来当标题的背景色。有没有办法让标题放在矩形的前面,不要让矩形的填充色挡住标题?
smile246 2003-12-21
  • 打赏
  • 举报
回复
xudafei,我试了,
出现“不能识别的成员COMBOL1”
xudaifei 2003-12-21
  • 打赏
  • 举报
回复
在组合框的interactivechange代码如下:
DO CASE
CASE this.combol1.value=1
do form b1-un
CASE this.combol1.value=2
do form b1-un2h
CASE this.combol1.value=3
do form b1-ua
CASE this.combol1.value=4
do form b1-unu
CASE this.combol1.value=5
do form b1-unacc
ENDCASE

试一试!
落单枫叶 2003-12-20
  • 打赏
  • 举报
回复
实在要做6张表,做一个表单集,根据组合框的值变化指定显示哪个表单。
落单枫叶 2003-12-20
  • 打赏
  • 举报
回复
如果五张型号表的字段名完全一样或稍有不同,把六张表做成一张表好了,何苦要弄成六张呢?!表中加一个字段“型号”。 把向导做的“型号”控件改为组合框,设置RowSource="UN型,UA型,UN2H型,UNU型,UNACC型",RowSource=1,Style=2
这样的话,上面的代码则改成set filter to 型号=&this.value
在退出按钮中加一句set filter to
smile246 2003-12-20
  • 打赏
  • 举报
回复
luwq168你好,你的思路很好,但我的参数实在很多,而且单在UN型下面又有好多规格,如果放到一张表格上的话看起来很累,在屏幕上显示也占很大空间。所以我的思路是这样的:
用向导做了一张表单,表上有前一个、下一个、上一个、保存、查找、打印...的命令按扭
在表的数据环境中有六张表:型号、UN型、UA型、UN2H型、UNU型、UNACC型
其中型号的表中就一个字段:型号,内容是后面的五种
把型号的表和后面五个表关联。在表单中用一个组合框,用生成器把型号加到组合框中,也就是说我已可以在组合框中下拉这五种机型。
现在的问题是我想点击组合框种的不同机型,表单上的型号参数就相应的改变。
应该有办法的吧!只是我不知道怎么写代码?大家再帮我参谋参谋吧!
Jaxi_sky 2003-12-20
  • 打赏
  • 举报
回复
来一个主从表对应关系如何?这样就可以在子表中显示出相应的记录
落单枫叶 2003-12-19
  • 打赏
  • 举报
回复
思路如下:
五张表的表名用另一张表的数据名,如UN型的做一张"UN型"表。
表单上一个组合框cmb、一个表格grid1
在组合框的interactivechange事件中写代码:
Thisform.grid1.RecordSourceType=0
Thisform.grid1.RecordSource=&this.value
thisform.refresh
yangcaibin 2003-12-19
  • 打赏
  • 举报
回复
this.combol1.controlsource = "un型,ua型..."

2,746

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧