回复 13楼 隔壁的土豆
你看看这个吧,这个是当初别人帮我弄的。我觉得很容易懂也很好。
Combo1 :
mc=alltrim(this.displayvalue)
&&获取组合框中数据
select * from 财务信息 where 单位名称=mc
into cursor temp
thisform.text1.value=temp.客户编码
*财务信息.单位名称
thisform.text3.value=temp.单位地址
thisform.text4.value=temp.税号
thisform.text5.value=temp.开户行
thisform.text6.value=temp.账户
thisform.text7.value=temp.电话
thisform.text8.value=temp.存入时间
thisform.text9.value=temp.备注
Init:
select
单位名称 from 财务信息
into cursor combo1
this.rowsourcetype=6
this.rowsource="combo1"
修改
if empty(thisform.text1.value)=.f. or empty()=.f. or empty(thisform.text3.value)=.f. OR empty(thisform.text4.value)=.f. or empty(thisform.text5.value)=.f. or empty(thisform.text6.value)=.f.or empty(thisform.text7.value)=.f. or empty(thisform.text8.value)=.f. or empty(thisform.text9.value)=.f.
a=messagebox('确定要修改吗?',32+4,'系统提示')
if a=6
select 财务信息
locate for 财务信息.单位名称=ALLTRIM()
replace 客户编码 with thisform.text1.value
*tableupdate()
replace 单位地址 with thisform.text3.value
replace 税号 with thisform.text4.value
replace 开户行 with thisform.text5.value
replace 账户 with thisform.text6.value
replace 电话 with thisform.text7.value
replace 存入时间 with thisform.text8.value
replace 备注 with thisform.text9.value
thisform.refresh
messagebox('修改成功',0+64,'系统提示')
ENDIF
ENDIF