IWCombobox的OnAsyncChange代碼如下：
procedure TfmBM.TfmXLSelect1IWComboBox1AsyncChange(Sender: TObject;
EventParams: TStringList);
begin
UID:=TfmXLSelect1.IWComboBox1.Items.ValueFromIndex[TfmXLSelect1.IWComboBox1.ItemIndex];
dmAdd.ShowXl(UID);
end;
dmAdd的Clientdataset的資料修改代碼如下：
procedure TdmAdd.ShowXl(iXLUID:string);
begin
with cdsBM_Edit do
if (iXLUID<>'') then
begin
if (FieldByName('RY_XL_UID').AsString<>iXLUID) then
begin
Edit;
FieldValues['RY_XL_UID']:= iXLUID;
Post;
end
else Locate('RY_XL_UID', iXLUID, []);
end;
end;
首次點擊IWCombobox OnAsyncChange是有效的 并且得到的結果也是對的 但是以后事件全部失效
注釋
Edit;后又正常了 這是為什么 急急急！！！
FieldValues['RY_XL_UID']:= iXLUID;
Post;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/82156.html
標籤：VCL組件開發及應用