主题:错误 对象没有包含在表单中
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那句
谢谢大家,
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那句
谢谢大家,