我的程序中有两个表单,负债表、损益表。两个表单编制方法大致相同。下面是负债表的相关内容:
表单的load:
public nian,y,fuzhaib
nian=''
close table all
set esca on
fuzhaib='fuzhaib'-khbh
set default to d:\东岭\
财务核算='财务核算'-khbh
open database &财务核算
if used('&fuzhaib') &&如果表已打开
sele &fuzhaib &&选择表所在的工作区
else
sele 104 &&选择1工作区
use &fuzhaib order tag 1 alias &fuzhaib &&打开并以编号字段进行索引
endif
表单的init:
if used('&fuzhaib') &&如果表已打开
sele &fuzhaib &&选择表所在的工作区
*use in &fuzhaib
*use &fuzhaib order tag 1 alias &fuzhaib ALIAS &fuzhaib &&打开 &&打开并以编号字段进行索引
else
sele 104 &&选择1工作区
use &fuzhaib order tag 1 alias &fuzhaib &&打开并以编号字段进行索引
endif
thisform.combo1.rowsourcetype=2
thisform.combo1.rowsource='&fuzhaib'
......
组合框的click:
xmc=len(alltrim(thisform.combo1.value)) &&某组合框值
if xmc=0
if used('&fuzhaib') &&如果表已打开
sele &fuzhaib &&选择表所在的工作区
else
sele 104 &&选择1工作区
use &fuzhaib order tag 1 alias &fuzhaib &&打开并以编号字段进行索引
endif
loca for 编号=1
xmc=项目
thisform.combo1.value=xmc
endif
命令按钮click:
For each ocombo in thisform.Controls
if proper(ocombo.Baseclass) = "Combobox"
ocombo.click
Endif
Endfor
组合框name属性值:combo1
令我不解的是,损益表能够实现程序目的,单独运行负债表也能实现程序目的。但是如通过主菜单运行负债表时,总是出现:“不能识别的成员combo1”错误提示。请高手指教!谢谢!
------解决方案--------------------------------------------------------
把你的表单和所用表发到402118451@qq.com里我看看!
------解决方案--------------------------------------------------------
这是我运行的你的程序(经过处理可以编译运行的程序),未报你说的错误。
http://www.access911.net/CSDN/FileDescription.asp?mdb=2012-2-7&id=6&mode=3