Subject | How to fill another fields with TIB_Lookupcombo? |
---|---|
Author | send2iwan |
Post date | 2006-08-23T02:06:19Z |
I have a table like this
1. InvoiceDtl
InvoiceDtlId, ItemNo, ItemDescription, MinQty, Quantity,
SellPrice, SelingPrice, Amount
2. Items
ItemNo, ItemDescription, MinQty, SellPrice
I am trying to fill another fields in InvoiceDtl (ItemNo,
ItemDescription, MinQty, SellPrice) from Items (ItemNo,
ItemDescription, MinQty, SellPrice) with TIB_Lookupcombo (items) in
TIB_Grid (InvoiceDtl) with trigger onChange but can't, why?
or Is there another way to fill?
Can someone help with some tips or tricks?
another question :
i am try to look at Sample Company (FRM_Employee)
procedure TfrmEmployee.dsEmpDataChange(Sender: TIB_StatementLink;
Statement: TIB_Statement; Field: TIB_Column);
var
ii: integer;
begin
// Here is an example of how you can determine which fields actually
changed.
if not Assigned( Field ) and
not Statement.Fields.UpdatedWholeRow and
( Statement.Fields.UpdatedColumnCount > 0 ) then
begin
for ii := 0 to Statement.Fields.UpdatedColumnCount - 1 do
begin
ShowMessage( TIB_Column( Statement.Fields.UpdatedColumns
[ii] ).FieldName );
end;
end;
end;
that's run ok (Show FieldName), but not in my program Field always
fill, so ShowMessage never execute.
Can someone tell why?
thanks for any help.
Best Regards,
Iwan
1. InvoiceDtl
InvoiceDtlId, ItemNo, ItemDescription, MinQty, Quantity,
SellPrice, SelingPrice, Amount
2. Items
ItemNo, ItemDescription, MinQty, SellPrice
I am trying to fill another fields in InvoiceDtl (ItemNo,
ItemDescription, MinQty, SellPrice) from Items (ItemNo,
ItemDescription, MinQty, SellPrice) with TIB_Lookupcombo (items) in
TIB_Grid (InvoiceDtl) with trigger onChange but can't, why?
or Is there another way to fill?
Can someone help with some tips or tricks?
another question :
i am try to look at Sample Company (FRM_Employee)
procedure TfrmEmployee.dsEmpDataChange(Sender: TIB_StatementLink;
Statement: TIB_Statement; Field: TIB_Column);
var
ii: integer;
begin
// Here is an example of how you can determine which fields actually
changed.
if not Assigned( Field ) and
not Statement.Fields.UpdatedWholeRow and
( Statement.Fields.UpdatedColumnCount > 0 ) then
begin
for ii := 0 to Statement.Fields.UpdatedColumnCount - 1 do
begin
ShowMessage( TIB_Column( Statement.Fields.UpdatedColumns
[ii] ).FieldName );
end;
end;
end;
that's run ok (Show FieldName), but not in my program Field always
fill, so ShowMessage never execute.
Can someone tell why?
thanks for any help.
Best Regards,
Iwan