>>>>* 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) >>>>>>>>