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