做visual foxpro的表单查询为什么老是会跳出查询表出来?

发布网友发布时间：2023-10-13 18:06

共3个回答

热心网友时间：2024-12-13 05:16

[天天晚上数钞票]已经提出你的问题, 但是没有讲清楚.

因为如果你不加入目的地(表,数组,或文件), 默认是会出现这一窗口的. 所以楼上加 into cursor temp 就解决了这一问题.

为了达到你上面的目的, 你无须用 Select-SQL, 用VFP的内部函数, 效果更好. 比如:

xm=thisform.combo1.value
select "驾驶员档案表"
locate for 姓名 = xm
thisform.text1.value= iif(found(), 驾驶员档案表.工号, "嘿嘿, 没找到")

另外对于Combo的控件, 最好不要用Value, 而用DisplayValue. 原因是一旦你绑定了数据, Value 的值就不一定是你看得到的, 而DisplayValue就是你所见的.

还有如果楼上有志于程序编写或开发, 请使用VFP推荐的变量/对象命名方式:
即用 CmbDriver, TxtDriver. 中文尽量少用, 推荐使用英文, 至少也是中文的拼音. 因为在中文编写时经常会出现全角字符, 你输入空格, 结果被当成了汉语全角的空格(占2字符), 这样在程序维护时很难发现.

Derek Shu

热心网友时间：2024-12-13 05:16

那当然了，呵，select 工号 from 驾驶员档案表 where 姓名=xm
上面的命令有问题的，请你改成
select 工号 from 驾驶员档案表 where 姓名=xm into cursor temp
thisform.text1.value=temp.工号

热心网友时间：2024-12-13 05:17

也可以这样：
select 工号 from 驾驶员档案表 where 姓名=xm into ARRAY arra_tmp
if _tally > 0
thisform.text1.value=arra_tmp
endi