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