UC知道vfp查询程序
来源：百度知道 编辑：UC知道 时间：2024/06/20 03:57:26
set talk off
set date ansi
set century on
close all
if file('职工.dbf')
use 职工.dbf
else
create table 职工(工号 C(4),姓名 C(8),性别 C(2),年龄 N(2),出生日期 D,婚否 L)
endif
store space(160) to TJ
do while .T.
clear
@5,20 say '请输入查询的条件' get TJ picture '@s40'
read
if lastkey()=27
exit
endif
if type('&TJ')= 'L'
brow for &TJ
else
@12,20 say '您输入的不是一个有效条件'
inkey(10)
endif
enddo
return
帮我看看哪错了
if type('&TJ')= 'L' 这里出现问题 说‘函数名缺少’我刚学，不知道怎么改过来
set date ansi
set century on
close all
if file('职工.dbf')
use 职工.dbf
else
create table 职工(工号 C(4),姓名 C(8),性别 C(2),年龄 N(2),出生日期 D,婚否 L)
endif
store space(160) to TJ
do while .T.
clear
@5,20 say '请输入查询的条件' get TJ picture '@s40'
read
if lastkey()=27
exit
endif
if type('&TJ')= 'L'
brow for &TJ
else
@12,20 say '您输入的不是一个有效条件'
inkey(10)
endif
enddo
return
帮我看看哪错了
if type('&TJ')= 'L' 这里出现问题 说‘函数名缺少’我刚学，不知道怎么改过来
你粘贴到VFP里面，作为一个PRG文件，然后去DO它，是否有错、错在哪里都会显示到屏幕上。
补充：
我在VFP6下进行了验证，type('&TJ')= 'L' 这样的语句没有错，也可以直接写：
if type(tj)='L'
程序没有问题，关键是运行程序的时候，要使用双引号，比如可以输入：
姓名="ABC"
要是使用单引号就会出错