SET EXCLUSIVE OFF SET DEFAULT TO ("C:\Foxpro Projects\Statistics") with thisform.combo1 .RowSourcetype = 3 .Rowsource = 'Select distinct type from products into cursor crsproduct' .ColumnCount = 1 .displayvalue='Select Product Group' ENDWITH with this.combo2 .RowSourcetype = 3 .Rowsource = 'Select subtype from products where type=crsproduct.type into cursor crssubtype' .ColumnCount = 1 .displayvalue='Select Product Type' ENDWITHMany Thanks
Type Subtype Trouser Slimleg Trouser Kickflare Trouser Bootleg Jacket Double Breasted Jacket Single Breasted