欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vfp选项按钮组赋值有关问题

更新时间: 2014-01-05 02:27:18 责任编辑: Author_N1

 

VFP选项按钮组赋值问题
我做个一个表单,功能是:查询。表单的数据环境有2个表,有那个选项按钮组optiongroup1和optiongroup2,有一个text,一个查询的命令按钮,一个表格,我想实现我点击两个选项按钮组中的任意一个按钮,再在对应的text中输入部分字段,再点击查询,就能将含有该字段的信息全部显示在表格中,这样该怎么实现呢?请各位帮忙,在此先谢谢了
--参考方法--
请参考:
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


--参考方法--
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
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:18
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/9976/
本文WWW.DOC100.NET DOC100.NET版权所有。