What can cause such an error. Nothing changed at this point in the program and suddenly this error occurred.
Code: Select all
***** Создать БД Zpr_Inf#
CLoseAll() // Закрытие всех баз данных с ожиданием завершения операций
aStructure := { { "Num" , "N", 15, 0 }, ; // Порядковый номер после ранжирования
{ "Num_prc" , "N", 15, 7 }, ; // Порядковый номер после ранжирования в процентах
{ "Kod_atr" , "N", 15, 0 }, ; // Код признака, т.е. градации описательной шкалы
{ "Name_atr" , "C",mLN, 0 }, ; // Наименование признака, т.е. описательной шкалы+"-"+градации описательной шкалы
{ "Kod_OpSc" , "N", 15, 0 }, ; // Код описательной шкалы
{ "Znach_Atr", "N", 15, 7 }, ; // Значимость признака в ее единицах измерения
{ "Zn_AtrNit", "N", 19, 7 }, ; // Значимость признака в ее единицах измерения нарастающим итогом
{ "Znach_Prc", "N", 15, 7 }, ; // Значимость признака в процентах от суммы значимостей всех признаков
{ "Zn_PrcNit", "N", 15, 7 }, ; // Значимость признака в процентах от суммы значимостей всех признаков нарастающим итогом
{ "Delete" , "C", 6, 0 } } // Признак, что данный признак был удален из Abs
PUBLIC Ar_Model := {"Abs", "Prc1", "Prc2", "Inf1", "Inf2", "Inf3", "Inf4", "Inf5", "Inf6", "Inf7" }
FOR jj=1 TO LEN(Ar_Model)
* mNameZpr = "Zpr_"+Ar_Model[jj]+".dbf"
mNameZpr = "Zpr_"+Ar_Model[jj]
DbCreate( mNameZpr , aStructure ) // <<<===################# ERROR
NEXT
mNameZpr = "Zpr_tmp.dbf"
DbCreate( mNameZpr , aStructure )