&&text1 text2 text3 是三个文本框
if thisform.text3.value==""
messagebox("请选择顾客类型",48)
else
select 1 &&此时打开顾客信息表
Append Blank 
Replace 编号 With Thisform.Text1.Value 
Replace 顾客类型  With Thisform.Text2.Value 
Replace 进场时间 With Ctod(Thisform.Text3.Value) 
thisform.refresh
thisform.release
endif
可是程序总是报错:找不到text3这个变量  为什么?或者报错:编号不唯一  这又是为什么?
请大家帮个忙
越快越好!

解决方案 »

  1.   

    thisform里没有名为text3的控件,添加上。
      

  2.   

    text3是一个文本框  自己已经加上拉!在那个窗口中也有!但是仍然不行!大家如有好的注意能不能详细说一下!
      还有自己在“确定”按钮中写入如下代码:
    if thisform.text3.value=="" 
    messagebox("请选择顾客类型",48) 
    else 
    select 1 &&此时打开顾客信息表 
    Append Blank 
    Replace 编号 With Thisform.Text1.Value 
    Replace 顾客类型  With Thisform.Text2.Value 
    Replace 进场时间 With Ctod(Thisform.Text3.Value) 
    thisform.refresh 
    thisform.release 
    endif 
       可是不能够在表“顾客信息”中显示!怎么回事?希望高手帮忙啊!自己真的无奈啦!谢谢!
      

  3.   

    哎,老实说吧, VFP实在算不上是什么"语言", 我以前接触VFP的经历也是痛苦不堪, 数据库不像数据库, 编程语言不像编程语言, 用起来挺麻烦.
    楼主趁早改VB算了.
      

  4.   

    自己现在就是想改也来不及啦!你能不能想想办法?
    &&text1 text2 text3 是三个文本框 
    if thisform.text3.value=="" 
    messagebox("请选择顾客类型",48) 
    else 
    select 1 &&此时打开顾客信息表 
    Append Blank 
    Replace 编号 With Thisform.Text1.Value 
    Replace 顾客类型  With Thisform.Text2.Value 
    Replace 进场时间 With Ctod(Thisform.Text3.Value) 
    thisform.refresh 
    thisform.release 
    endif 
    可是程序总是报错:找不到text3这个变量  为什么?或者报错:编号不唯一  这又是为什么?
    而且自己已经在数据环境中添加要用到的表啦!
    救救行不?