>ADD OBJECT cmbpirkejas AS mcf_combo WITH ;
> BoundColumn = 2, ;
> ColumnCount = 1, ;
> BoundTo = .T., ;
> Name = "cmbPirkejas"
>
>
>PROCEDURE cmbpirkejas.Init
> SELECT SPACE(70) AS pavad, SPACE(7) AS kod FROM organizac ;
> UNION ;
> SELECT pavad, kod FROM organizac ;
> ORDER BY 1 ;
> INTO CURSOR cMok
>
> This.RowSourceType = 2
> This.RowSource = "cMok"
> This.Value = cMok.kodas
>ENDPROC
>
>PROCEDURE cmbpirkejas.Valid
> ThisForm.requery_grid()
>ENDPROC
>
>