Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 2.07 » View Incident Report |
Serious |
Reported By: Rolf Frei Reported On: 2/21/2001 For: Version 2.06 Build 1 |
procedure TForm1.Button1Click(Sender: TObject); begin Query.Open; if not tblHG.Active then tblHG.Open; if tblHG.Locate('maingroup', Query.FieldByName('maingroup').AsString, []) then Caption := tblHG.Fields[3].AsString else Caption := Query.FieldByName('maingroup').AsString; if not tblUG.Active then tblUG.Open; if tblUG.Locate('maingroup;category', VarArrayOf([Query. FieldByName('maingroup').AsString, Query.FieldByName('category').AsString]), []) then Caption := tblUG.Fields[3].AsString else Caption := Query.FieldByName('category').AsString; if not tblUUG.Active then tblUUG.Open; if tblUUG.Locate('maingroup;category;subcategory', VarArrayOf([Query.FieldByName('maingroup').AsString, Query.FieldByName('category').AsString, Query.FieldByName('subcategory').AsString]), []) then Caption := tblUUG.Fields[3].AsString else Caption := Query.FieldByName('subcategory').AsString; end;
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |