Добавлено: 29 июл 2008, 10:37
спас только прямой sql
что-то в этом духе
за него разработчикам +1
за остальное -99999

что-то в этом духе
Код: Выделить всё
stmt := sqlAllocStmt;
sqlBindCol(stmt, 1, TableNum);
sqlExecStmt(stmt, 'SELECT kodtable['+Trim(String(anlevel))+'] FROM buhschet WHERE schet = '+Trim(schet)+' and subsch = '+Trim(subschet));
за остальное -99999