WITH thisform.clsdatadesc.cboShopOrder *** only flds that need populated if using framework and clsCboBox .displayValue = "tmpCurShopOrders.shopOrder" .controlSource = "poMast.shopOrder" .RowSourceType = 3 && SQL Statement TEXT TO .RowSource TEXTMERGE NOSHOW PRETEXT 4 SELECT shopOrders.shopOrder, shopOrders.custCode, custMast.name FROM shopOrders INNER JOIN custMast ON shopOrders.custCode = custMast.Code ORDER BY shopOrders.shopOrder INTO CURSOR tmpCurShopOrders ENDTEXT .columncount = 3 .columnWidths = "50,50,150" .style = 2 .boundcolumn = 1 && listValue .BoundTo = .t. && As Sergey point .Requery() .listindex = 1 ENDWITH>greetings all
>SELECT s.shopOrder, s.custCode, c.name; > FROM shopOrders as s; > INNER JOIN custMast as c ON s.custCode = c.Code; > ORDER BY s.shopOrder; > INTO CURSOR tmpCurShopOrders >WITH thisform.clsdatadesc.cboShopOrder > *** only flds that need populated if using framework and clsCboBox > .displayValue = "tmpCurShopOrders.shopOrder" > .controlSource = "poMast.shopOrder" > .RowSourceType = 2 && alias > .rowsource = "tmpCurShopOrders.shopOrder, custCode, name" > .columncount = 3 > .columnWidths = "50,50,150" > .style = 2 > .boundcolumn = 1 && listValue > .listindex = 1 >ENDWITH >>