如何在运行时建立一个lookup字段
编号：QA004356
建立日期: 2001年8月13日 最后修改日期：2001年8月13日
所属类别：
刘世刚:
操作系统：Windows98
编程工具：Delphi5.0
问题：设计时建立一个lookup字段是没有问题的，现在我需要在运行时建立一个此字段，却怎么也不成功，不知道是不是不能做到这一点？
所用数据库为ORACLE816。
水平: 中级
回答:
在程序中是可以动态生成LOOKUP字段的,示范程序如下
begin
DM_Finance.C_Wage.Active ;= Fasle;
l_tmpfield := TStringField.Create(Dm_Finance.C_Wage);
With l_tmpField Do
begin
FieldKind := fkLookup;
FieldName := '人员名称';
KeyFields := '人员编码';
LookupDataSet := DM_Finance.C_Employee;
LookupKeyFields := '人员编码';
LookupResultField := '人员名称';
Name := DM_Finance.C_wage.name + 'CDSDesignerXgw' + IntToStr(Fields.Count);
index := 7;
DataSet := DM_Finance.c_wage;
end;
FieldDefs.Update;
DM_Finance.C_Wage.Active := True;
end
**********注
DM_Finance.C_wage 是一个TDATASET
上面是建立一个'人员名称'的LOOKUP字段, 关键是'人员编码'该字段一定要是永久字段,即是在DM_FINANCE.C_WAGE中已建立起来。
此问题由伟回答。
| |
|
|
| |
|
|
