lf=thisform.
Do Case
Case Vartype(&lf)=‘C’
 lsztj1=‘“‘+ALLT(Thisform.container2.text1.value)+’”’
Case Vartype(&lf)=‘D’
 lsztj1='CTOD(“‘+ALLT(Thisform.container2.text1.value)+’”)
Othercase
 lsztj1=ALLT(Thisform.Container2.Text1.value)

求解：第一二个CASE 里面“‘+ALLT(Thisform.container2.text1.value)+’”这个是什么为什么在第三个case里面就没有了呢
还有 Vartype(&lf)=‘C’ 为什么要用宏替换呀
麻烦大神解答一下好吗！！！

Vartype(thisform.)

书上写宏替换替换字符型变量，但这个本来就是字符变量呀

&lf语句 展开就是 thisform.语句
能不用 & 最好还是不用

使用宏是变量名，不使用宏是变量值！！

1. 对于本例来说，使用 type() 要比 vartype() 简练，无需使用宏替换。如下所示：

lf=thisform.
Do Case
Case type(lf)='C'
 lsztj1= '"'+ALLT(Thisform.container2.text1.value)+'"'
Case type(lf)='D'
 lsztj1='CTOD("'+ALLT(Thisform.container2.text1.value)+'"')
Otherwise
 lsztj1=ALLT(Thisform.Container2.Text1.value)
Endcase

2. 你提供的代码有书写错误：是 Otherwise 不是 othercase。你的代码也不够完整。从上面的代码分析：lsztj1 应该保存的是查询条件中的字段值表达式，查询时采用如下形式：locate for 字段 = &lsztj1。因此，otherwise 中的 .Value 两边也必须加定界符，如下：
……
Otherwise
 lsztj1='"'+ALLT(Thisform.Container2.Text1.value)+'"'

如果查询时采用如下形式：locate for 字段 = lsztj1，则第一个Case和Otherwise中的 .Value 两边不能加定界符。当然，对于第二个Case中有 CTOD，这种情况下必须使用 loca for 字段=&lsztj1

????thisform.
combo不是容器对象，....combo.1.value应是写错了，combo1.value
1.假设thisform.
那么lf="ABC"
则&lf展开后是表示变量ABC而不是thisform.，也不是字串"ABC",而是指一个叫ABC的变量。

第一个Case Vartype(&lf)=‘C’，展开后是： case vartype(ABC)="C"，如果你没有定义一个叫ABC的可用变量，Vartype(ABC)="U"是成立的，Vartype(ABC)="C"会是.F.，它不同于Vartype(thisform.)="C"可能是成立的（如果combo的imputmask=!,或者初始化了combo.value=0之类的，会是"N"）


程序书写中有很多错误哦。do case.....endcase也不配对呀。

谢谢大神，我还有个问题，就是定界符一般只看到过一对 这里“”''有两对了呀  而且+ +是什么意思呢

“”''有两对是指哪？

比如，
a1=10
a2="10"
a3=allt(str(a1))+"/"+a2
?a3  &&显示是 10/10
但如果你用宏
?&a3 &&此时，显示的结果是 1，因为 10/10是数值
但如果
a3="'"+allt(str(a1))+"/"+a2+"'" &&给这个字符前后加上单引号
?a3  &&显示是 10/10
?&a3 &&此时，显示的结果是 10/10，因为 10/10是字符
就说出现你说的，怎么是 "'"+......+"'"