Народ, помогите плиз. Не пойму в чем затык:

SELECT *;
FROM Cfg_spec;
INTO CURSOR TmpCfgSpec;
WHERE Cfg_spec.Cfg_head_id == THISFORM.rowcfghdid;
ORDER BY Cfg_spec.Numb

SELECT TmpCfgSpec
lnRecc = RECCOUNT()
lcExprCrCur = 'CREATE CURSOR vData_spec (RowNum N(10), '
SCAN
lnRec = RECNO()
IF lnRec = 1
lcExprCrCur = lcExprCrCur+"C"+ALLT(STR(lnRec))+" "+TmpCfgSpec.DataType+"("+ALLT(STR(TmpCfgSpec.Flength))+IIF(TmpCfgSpec.DataType="N",","+ALLT(STR(NVL(TmpCfgSpec.Fdecimal,0))),"")+")"
ELSE
lcExprCrCur = lcExprCrCur+", "+"C"+ALLT(STR(lnRec))+" "+TmpCfgSpec.DataType+"("+ALLT(STR(TmpCfgSpec.Flength))+IIF(TmpCfgSpec.DataType="N",","+ALLT(STR(NVL(TmpCfgSpec.Fdecimal,0))),"")+")"
ENDIF
ENDSCAN
lcExprCrCur = lcExprCrCur + ')'
WAIT WINDOW lcExprCrCur
&lcExprCrCur

THISFORM.SpecGrid.ColumnCount = lnRecc
THISFORM.SpecGrid.RecordSource = "vData_spec"

Там где выделено красным, а именно &lcExprCrCur выдает ошибку известную: function argument value ... тра-та-та.
Хотя текст в переменной lcExprCrCur получается например такой (вывожу WAIT WINDOW):
CREATE CURSOR vData_spec (RowNum N(10), C1 C(30), C2 N(10,0)).

Неа, Сергей, не в этом дело. Попробовал так, все равно та же фигня.

Спасибо, Сергей.
Затык оказался в куске С1 С(30). Та буква С которая задает тип, оказалась русской.