>>* The FORM LOAD event: >>WITH ThisForm >> This.DoSets() >> .cTable="certs" >> * Put values into the Form's .aBend[3,2] array. >> .aBend[1,1]="Not Tested" >> .aBend[1,2]=" " >> .aBend[2,1]="Pass " >> .aBend[2,2]="P" >> .aBend[3,1]="Fail " >> .aBend[3,2]="F" >> * Put values into the Form's .aWrap[3,2] array. >> .aWrap[1,1]="Not Tested" >> .aWrap[1,2]=" " >> .aWrap[2,1]="Pass " >> .aWrap[2,2]="P" >> .aWrap[3,1]="Fail " >> .aWrap[3,2]="F" >>ENDWITH >> >>* The FORM INIT event: >>This.ListIndex = 1 >> >>* ThisForm.cboBend.LostFocus() >>WITH ThisForm >> DO CASE >> CASE This.ListIndex = 1 && Not Tested >> REPLACE Certs.Bend WITH " " >> >> CASE This.ListIndex = 2 && Pass >> REPLACE Certs.Bend WITH "P" >> >> CASE This.ListIndex = 3 && Fail >> REPLACE Certs.Bend WITH "F" >> >> ENDCASE >> .SaveCancelStatus() >> .Refresh() >>ENDWITH >> >>>>
>>*The ComboBox was set to: >>cboBend.BoundColumn=2 >>cboBend.BoundTo=.T. >>cboBend.ColumnCount=2 >>cboBend.ControlSource="Certs.Bend" >>cboBend.FontName="Courier New" >>cboBend.RowSource="ThisForm.aBend" >>cboBend.RowSource=5 (Array) >>>>