if alltrim(thisform.commandgroup2.command1.caption)='添加'
thisform.commandgroup1.command1.caption='保存' &&赋值给command1的标题文本
thisform.commandgroup1.command3.caption='取消' &&赋值给command2的标题文本
thisform.commandgroup1.command2.enabled=.f.
thisform.commandgroup1.command4.enabled=.f.
l=.t.
thisform.init &&执行表单的Init事件
thisform.text1.enabled=.f.
*自动编号
select zafei
if empty(编号)
pbno=alltrim('本袋B060801501')
else
select max(编号) from zafei into array a &&查找表中最大的编号存入数组中
cend=val(substr(a(1),3))+1
pbno=alltrim(left(ALLTRIM(zafei.部门),2)+RIGHT(ALLTRIM(zafei.包装类别),2)+'B'+ALLTRIM(RIGHT(zafei.日期,8)) +padl(alltrim(str(cend,2)),2,'0'))
endif
STORE '' to thisform.text1.value,thisform.text2.value,thisform.text3.value,thisform.text4.value,;
thisform.text5.value,thisform.text6.value,thisform.text7.value,thisform.text8.value,;
thisform.combo1.value,thisform.combo2.value,thisform.combo3.value
thisform.text1.setfocus &&文本框获得焦点
else
thisform.commandgroup1.command1.caption='添加'
thisform.commandgroup1.command3.caption='修改'
thisform.commandgroup1.command3.enabled=.t.
thisform.commandgroup1.command4.enabled=.t.
rq=alltrim(thisform.text1.value) &&获得输入信息
kh=alltrim(thisform.text2.value)
dw=thisform.text3.value
dj=thisform.text4.value
qy=thisform.text5.value
zx=thisform.text6.value
tl=thisform.text7.value
qt=thisform.text8.value
bmen=alltrim(thisform.combo1.value)
bz=alltrim(thisform.combo2.value)
pz=alltrim(thisform.combo3.value)
if empty(rq) or empty(kh) or empty(dw) or empty(dj) OR EMPTY(bmen) OR EMPTY(bz) OR EMPTY(pz)
messagebox('请将信息填完整！',48,'操作失败') &&弹出系统提示
else
select *;
from zafei!zafei;
where 编号==pbno;
order by 编号;
into cursor linpb
if reccount()=0
insert into data\zafei values(ri,kh,dw,dw,dj,qy,zx,tl,qt,bmen,bz,pz) &&追加新记录
messagebox('数据保存完毕！',48,'操作成功！')
else
cmessagetitle='提示！'
cmessagetext='信息已修改，确定要保存吗？'
ndialogtype=4+32
nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
do case
case nAnswer=6
update zafei!zafei set 日期=rq,客户单位名=kh,吨位=dw,单价=dj,;
汽运费用=qy,装卸费用=zx,铁轮费用=tl,其他杂费=qt,部门=bmen,包装类别=lb,品种名称=pz;
where 编号==pbno &&更新数据表
replace zafei.应收金额 with zafei.单价*zafei.吨位
replace zafei.运杂费合计 with zafei.装卸费用+zafei.汽运费用+zafei.铁轮费用+zafei.其他杂费
replace zafei.运杂费单价 with zafei.运杂费合计/zafei.吨位
replace zafei.税费单价 with (zafei.单价*0.17)/1.17
replace zafei.税费合计 with zafei.税费单价*zafei.吨位
replace zafei.不含税厂价 with zafei.单价-zafei.税费单价-zafei.运杂费单价
replace zafei.不含税金额 with zafei.不含税厂价* zafei.吨位
APPEND BLANK
messagebox('数据保存完毕！',48,'操作成功！')
endcase
endif
endif
select zafei &&选定Tabpb工作区为当前工作区
thisform.Activate &&执行表单的Activate事件
l=.f.
thisform.init &&执行表单的Init事件
endif
这是一个增加修改模块的代码，在红色的区域总是出现找不到列，经过几次调试都是一样。还有就是请大家帮忙看看还有什么错误？谢谢大家了啊！
