回复 28楼 bccn0906
怪不得,我就是刚才改了下,不行。我把修改的代码改成这样发现能同时修改父表和子表if messagebox('确定要修改吗?',32+4,'系统提示') =6
SET ORDER TO 客户编码 IN 销售信息
IF NOT SEEK(销售信息修改tmp.客户编码,'销售信息')
INSERT INTO 销售信息 (客户编码) VALUES (销售信息修改tmp.客户编码)
ENDIF
UPDATE 基本信息 SET 单位名称=b.单位名称,联系人=b.联系人,联系电话=b.联系电话 from 销售信息修改tmp b WHERE ALLTRIM(基本信息.客户编码)==ALLTRIM(b.客户编码)
UPDATE 销售信息 SET 单位名称=b.单位名称,联系人=b.联系人,联系电话=b.联系电话,产品名称=b.产品名称,型号规格=b.型号规格,单价=b.单价,数量=b.数量,配件=b.配件;
,总价=b.总价,快递公司=b.快递公司,订货时间=b.订货时间,发货日期=b.发货日期,合同编号=b.合同编号,货款=b.货款,发票=b.发票,经手人=b.经手人,联系方式=b.联系方式,备注=b.备注 from 销售信息修改tmp b WHERE ALLTRIM(销售信息.客户编码)==ALLTRIM(b.客户编码)
*SELECT 基本信息
*LOCATE FOR ALLTRIM(客户编码)==ALLTRIM(销售信息修改tmp.客户编码)
*ZAP IN 销售信息修改tmp
messagebox('修改成功',0+64,'系统提示')
ENDIF
thisform.Refresh
你看看这样会不会有啥不对的