请帮帮忙~~~!! 十万火急！（300分）

[3684291]

我有个程序，有两个表。其中一个表1有两个字段 顾客编号 顾客名称

另个表2字段是 顾客编号，顾客名称， 产品编号，产品名称

因为每一个顾客可能需要多个产品，所以在录入的时候，我想在输入顾客编号时，就可以带出顾客名称，这样输入会很方便。但我不知道该怎么调用表1的数据，使我录入顾客编号，就能带出顾客名称，并增加到表2里面！并且在没有这个顾客编号时，能同时增加到表1和表2中！
请大家帮忙，十万火急啊！！！
分不够可以另开新贴加分！！300！

[westbulls]

1.首先如果表1中没有此客户编号,应该能够及时让用户去维护新的客户,而不是利用表2的编号自动加入到表1和表2中.
2.我想了解你的程序是f/s的还是c/s的,如果是c/s的,那么最好不要在表2中有客户名称,这个冗余字段了,因为客户编号是主键,而客户名称是可以更改的,如果用户更改了客户名称,那么就会造成表2中的相应数据要被大量更新,这是很不方便的、很费时间的,可以考虑将表2做为一个部分更新的视图,此时只要一个requery()就可以把客户名称返回前台了.
3.至于如何访问表1,上面两个朋友的做法都可以参考了.

[hnpyz]

在 LostFocus 事件中：

SELECT 表1
LOCATE FOR ALLTRIM( 顾客编号 ) = ALLTRIM( This.Value )
IF EOF()
APPEND BLANK
REPLACE 顾客编号 WITH This.Value
ENDIF
SELECT 表2
APPEND BLANK
REPLACE 顾客编号 WITH 表1.顾客编号, 顾客名称 WITH 表1.顾客名称

[xiaoli_xie]

设: text1,text2分别为顾客编号控件和顾客名称控件的名称,在text1的lostfocus事件中加入以下代码实现显示顾客名称的功能:

use 表1
locate for alltrim(顾客编号)==alltrim(text1.value)
if found()
goto recono()
text2.value=顾客名称
endif
use

在text2的lostfocus事件中或者实现"增加"功能的按钮中加入以下代码:

use 表1
locate for alltrim(顾客编号)==alltrim(text1.value)
if eof()
append blank
replace 顾客编号 with text1.valu, 顾客名称 with text2.value
endif
use 表2
append blank
replace 顾客编号 with text1.valu, 顾客名称 with text2.value
use

[3684291]

谢谢，节贴
每人１００！！