回 帖 发 新 帖 刷新版面

主题:错误 对象没有包含在表单中

SELECT 7
set filter to 
set index to 
set exact on
if empty(thisform.text1.value)
  messagebox("请输入名称",48,"提示信息")
else
        brow          ***这里可以显示记录
        ddd=''         **都是全局变量
        ddd2=''
        ddd=allt(thisform.text2.value)
        ddd2=allt(thisform.text5.value)
        set filter to 销售日期>=CTOD(ddd) and 名称=allt(thisform.text1.value) and 销售日期<=CTOD(ddd2)
        list            ***这里可以显示记录 因为brow老错,所以用这个看看。本来没有这句的。
        hjj=0
        sum 合计 to hjj
        thisform.label16.caption=allt(str(hjj))   ***这里可以显示数据
        sll=0
        sum 数量 to sll
        thisform.label17.caption=allt(str(sll))    ***这里可以显示数据
        go top
     if eof()=.f.
          BROW   **错误终止  对象没有包含在表单中
     ELSE
        MESSAGEBOX("抱歉名称没找到,或日期输入错误!请重新输入",48,"提示信息") 
     ENDIF
endif
*set exact on
THISFORM.REFRESH




错误终止   对象没有包含在表单中 指向brow那句

谢谢大家,

回复列表 (共2个回复)

沙发

天啊,没人知道,还是咋的。。。。。

板凳

1.我不知道,也许应该有人应该知道.
2.注释应该是两个&&号
3.在BROW上面加多一行 
    messagebox(ALIAS(SELECT()))
  并在代码左方边框双击,会加上一个红色圆,设置断点.
4.运行,会自动停在断点,这个时候,看看VFP主窗口的(数据工作期)窗口中有没有活动表,
  然后在VFP的命令窗口中运行一次BROW看看是什么情况.
  再回到(调试器)中按<F8>运行下一句,看看什么情况.
5.确认你的表里面没有控件或其他特殊数据引起异常.换一个不同的表看看.修改筛选条件看看.
6.还有很多很多废话,就省略了.

我来回复

您尚未登录,请登录后再回复。点此登录或注册