组合框和查询命令按钮的问题
数据库名字是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.姓名