在table表中,如何实现:输入某一已有字段值后(如主关键字),其它字段值随后(100分)

  • 主题发起人 主题发起人 worldmen
  • 开始时间 开始时间
看不懂。
 
在table表新插入的记录中,显示其他table的字段值。
table1: bh,mc;table2:bh,mc,sl
当直接输入的table1.bh.value等于table2.bh.value时,
table1.mc.value显示table2.mc.value,然后可以直接
修改table1.mc。
 
我的意思是:
在dbgrid(table1)中新插入一个记录,直接在关键
字段(bh)输入字段值,当字段值等于另外一个
table2的(bh)的字段值时,table1的mc从table2的mc取值,
然后可以在dbgrid(table1)中直接修改table1的mc的值。
要求在table中实现。
 
procedure Tfm_dekwf.Table2clbhChange(Sender: TField);
var
findresultboolean:boolean;
clmcv,dwv:string;
djv,cllbv:double;
begin
if DBGrid2.selectedField.fullName = 'clbh' then
begin
findresultboolean:=table3.findkey([table2clbh]);
if findresultboolean then
begin
table2.edit;
clmcv:=table3clmc.Value;
table2clmc.value:=clmcv;
dwv:=table3dw.value;
table2dw.value:=dwv;
djv:=table3dj.value;
table2dj.value:=djv;
cllbv:=table3cllb.value;
table2cllb.value:=cllbv;
table2.post;
end;
end;
table2.edit;
end;
 
接受答案了.
 

Similar threads

回复
0
查看
999
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
922
SUNSTONE的Delphi笔记
S
后退
顶部