D
deron
Unregistered / Unconfirmed
GUEST, unregistred user!
我这么写报错。
procedure TJXCDataM.DispTreeView(Mytreeview: TTreeView;MyData:TDataSet);
begin
FieldList := TStringList.create;
Case MyData of
tblProduct: GetProductList;/*其中GetProductList及下面的get...都是函数 */
tblSupplier:GetSupplierList;/*tbl...是表 */
end;
....
end;
procedure TJXCDataM.DispTreeView(Mytreeview: TTreeView;MyData:TDataSet);
begin
FieldList := TStringList.create;
Case MyData of
tblProduct: GetProductList;/*其中GetProductList及下面的get...都是函数 */
tblSupplier:GetSupplierList;/*tbl...是表 */
end;
....
end;