* 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)>You're not displaying the value anyway.