VFP选项按钮组赋值问题

阿束 2013-09-30 02:20:02
我做个一个表单,功能是:查询。表单的数据环境有2个表,有那个选项按钮组optiongroup1和optiongroup2,有一个text,一个查询的命令按钮,一个表格,我想实现我点击两个选项按钮组中的任意一个按钮,再在对应的text中输入部分字段,再点击查询,就能将含有该字段的信息全部显示在表格中,这样该怎么实现呢?请各位帮忙,在此先谢谢了
...全文
269 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lygcw9602 2013-10-02
  • 打赏
  • 举报
回复
If !Empty(Thisform.text1.Value)
	Thisform.grid1.RecordSource=Null
	Thisform.grid1.ColumnCount=-1
	If Thisform.optiongroup1.Value=1
	   Select * Into Cursor t1 From 表1 Where 字段名=Thisform.text1.Value		&& 查询表1 如果字段名为字符型,条件'='前后要加ALLTRIM()	Else
	   Select * Into Cursor t1 From 表2 Where 字段名=Thisform.text1.Value		&& 查询表2 如果字段名为字符型,条件'='前后要加ALLTRIM()	Endif
	Thisform.grid1.RecordSource='t1'
	Thisform.grid1.Refresh
Endif
十豆三 2013-09-30
  • 打赏
  • 举报
回复
请参考:
If !Empty(Thisform.text1.Value)
	Thisform.grid1.RecordSource=Null
	Thisform.grid1.ColumnCount=-1
	If Thisform.optiongroup1.Value=1
		Select * Into Cursor t1 From 表1 Where 字段名=Thisform.text1.Value		&& 查询表1
	Else
		Select * Into Cursor t1 From 表2 Where 字段名=Thisform.text1.Value		&& 查询表2
	Endif
	Thisform.grid1.RecordSource='t1'
	Thisform.grid1.Refresh
Endif

2,749

社区成员

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

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