请教一段查询代码

来源:互联网 发布:游戏优化是看什么 编辑:程序博客网 时间:2024/05/17 04:14

我想请教一下vf的一段查询代码,当输入楼栋号时能查询出楼栋信息,并且显示在下方的表格中,我运行程序时一直提示不能识别的成员text1,我是在页框中写的程序,求帮助,谢谢!

no=alltrim(thisform.Text1.value)
if thisform.optiongroup1.value=1  
     
if empty(no)      
messagebox("对不起,楼栋号不能为空。",16,"错误")     
thisform.Text1.setfocus     
return     
endif 
select ldxx      
locate for alltrim(ldxx.楼栋号)=no     
if not found()     
messagebox("没有找到你输入的楼栋号。",16,"错误")   
  thisform.Text1.setfocus    
return     
endif      
thisform.Edit1.value="楼栋号"+" "+楼栋号
      thisform.Edit2.value="楼层"+" "+ldxx.楼层
     thisform.Edit3.value="房间数"+" "+ldxx.房间数  
    
thisform.edit4.value="总人数"+" "+ldxx.总人数    
return 
  endif

0 0