首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

组合框和查询命令按钮的有关问题

2012-04-20 
组合框和查询命令按钮的问题数据库名字是studentinfo.dbf然后Combo1是用RowSourceType是:3-SQL类型,RowSou

组合框和查询命令按钮的问题
数据库名字是studentinfo.dbf
 然后Combo1是用RowSourceType是:3-SQL类型,RowSource是: SELECT 姓名 FROM studentinfo
 
 
  
 请问大哥大姐们,如何实现在combo1里面选择一个姓名以后,点击查询按钮就显示出性别、民族、学校这些信息。

[解决办法]
查询 按钮的 Click 事件写代码:
If !Empty(Thisform.Combo1.DisplayValue)
Select * Into Cursor T1 From Studentinfo.Dbf Where Alltrim(姓名)==Alltrim(This.DisplayValue)
If _Tally>0
Thisform.TextSex.Value=T1.性别
Thisform.TextMz.Value=T1.民族
Thisform.Textxx.Value=T1.学校
Else
Thisform.TextSex.Value=''
Thisform.TextMz.Value=''
Thisform.Textxx.Value=''
Endif
Endif

[解决办法]
数据表studentinfo.dbf加入表单数据环境中。
查询 按钮的 Click 事件写代码:
If !Empty(Thisform.Combo1.DisplayValue)
set filter to Alltrim(姓名)==Alltrim(This.DisplayValue)
Thisform.TextSex.Value=T1.性别
Thisform.TextMz.Value=T1.民族
Thisform.Textxx.Value=T1.学校
Endif

[解决办法]
这么麻烦做啥啊,
直接把表字段 性别 民族 学校 分别绑定到三个文本框控件上

设定
Combo1的RowSourceType=6 RowSource=姓名
textsex的controlsource=性别
textmz的controlsource=民族
textxx的controlsource=学校

在combo1的interactivechange事件中写一行:thisform.Refresh
如果担心在文本框中修改表中的记录,就让文本框的readonly=.t.

这样连查询按钮都省了!
[解决办法]
对了,忘了说
把studentinfo.dbf加到表单的数据环境中

并在表单的Init事件中写一句:
thisform.combo1.displayvalue=studentinfo.姓名

热点排行