UC知道VFP里grid查询筛选问题，追加分数。急。
来源：百度知道 编辑：UC知道 时间：2024/09/21 22:54:22
以下有发相关图片
我想要在用户帐号里输入正确帐号后，grid里会显示该帐号的相关信息。用户名里也会显示该帐号相对应的用户名。
当然，刚打开此表可显示全部信息。只是填写帐号，点击查询按键后，会只显示该帐号信息。
看上去很复杂~~但我知道那其实只是我描述得复杂了~~我想vfp高手会懂我的意思哦？？
ps:用户帐号和用户名的数据表名为：user，grid信息显示数据表名为：userall
我想要在用户帐号里输入正确帐号后，grid里会显示该帐号的相关信息。用户名里也会显示该帐号相对应的用户名。
当然，刚打开此表可显示全部信息。只是填写帐号，点击查询按键后，会只显示该帐号信息。
看上去很复杂~~但我知道那其实只是我描述得复杂了~~我想vfp高手会懂我的意思哦？？
ps:用户帐号和用户名的数据表名为：user，grid信息显示数据表名为：userall
表单的init事件
thisform.grid1.RecordSourceType=1
thisform.grid1.RecordSource=''
select * from userall where 1=2 into cursor tmp_userall
**这是刚打开此表不显示信息。要显示全部信息就把where 1=2 去掉。
thisform.grid1.RecordSource='tmp_userall'
表单的unload事件
use in tmp_userall
查询按钮的Click事件
if empty(thisform.txtuser_id.value)
=messagebox('没有用户编号。',48,'提示')
thisform.txtuser_id.SetFocus
return
endif
thisform.grid1.RecordSource=''
select * from userall ;
where allt(user_id)==allt(thisform.txtuser_id.value) ;
into cursor tmp_userall
thisform.grid1.RecordSource='tmp_userall'
if _tally>0
go top
thisform.txtuser_name.value=tmp_userall.user_name
else
=messagebox('没有此编号用户。',48,'提示')
thisform.txtuser_name.value=''
endif
thisform.refresh