当字段定义了数据查找属性(SELECT CRM_CUSTOMER.CUSTOMERID, CRM_CUSTOMER.NAME, CRM_CUSTOMER.KHBM
FROM CRM_CUSTOMER
union
SELECT '0','新增','' from TJJCZL
order by CUSTOMERID) 在录入数据时,当客户在表中不存在时,用户选择‘新增' 时,能否弹出一个窗口来新增客户。新增完后,字段值变成刚刚新增的客户。
楼主,你可以在数据集的OnFieldChange事件中编写代码:
procedure TDDXX.DataSetDDSJJFieldChange(DataSet: TDataSet; Field: TDataField);
begin
if Field.FieldName = 'KH' then
if Field.AsString = '0' then
jsdialogs.ShowMsg('你选择了:' + Field.AsString, Field.DisplayName);
end;