обработка данных из двух дбф файлов
27.06.2012
12:06
#24
"нет, я сначала перепутала
потом сделала вот так
ДБФС = Новый XBase;
ДБФС.Кодировка = КодировкаXBase.OEM;
ТЗНакл = Новый ТаблицаЗначений;
ТЗНакл.Колонки.Добавить("НомерСтроки", Новый ОписаниеТипов("Число"));
ТЗНакл.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));
ТЗНакл.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));
ТЗНакл.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));
ТЗНакл.Колонки.Добавить("Договор", Новый ОписаниеТипов("Строка"));
ДБФС.ОткрытьФайл(ВыбФайлСостав, ,Истина);
НК = ДБФС.КоличествоЗаписей();
ТЗНакл.Индексы.Добавить(«Договор»);
Для НК = 1 По 5 Цикл
ДБФС.Перейти(НК);
НС = ТЗНакл.Добавить();
НС.НомерСтроки = НК;
НС.Количество = Формат(ДБФС.AMOUNT, "ЧГ=0");
НС.Сумма = Формат(ДБФС.SUMMA, "ЧГ=0");
НС.Цена = Формат(ДБФС.PRICE, "ЧГ=0");
НС.Договор = Формат(ДБФС.NI_ID, "ЧГ=0");
ДБФС.Записать();
Но у меня он все равно ругается
{Форма.Форма1.Форма(284,29)}: Ожидается выражение
ТЗНакл.Индексы.Добавить(<>>«Договор»); (Проверка: Толстый клиент (обычное приложение))"
потом сделала вот так
ДБФС = Новый XBase;
ДБФС.Кодировка = КодировкаXBase.OEM;
ТЗНакл = Новый ТаблицаЗначений;
ТЗНакл.Колонки.Добавить("НомерСтроки", Новый ОписаниеТипов("Число"));
ТЗНакл.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));
ТЗНакл.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));
ТЗНакл.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));
ТЗНакл.Колонки.Добавить("Договор", Новый ОписаниеТипов("Строка"));
ДБФС.ОткрытьФайл(ВыбФайлСостав, ,Истина);
НК = ДБФС.КоличествоЗаписей();
ТЗНакл.Индексы.Добавить(«Договор»);
Для НК = 1 По 5 Цикл
ДБФС.Перейти(НК);
НС = ТЗНакл.Добавить();
НС.НомерСтроки = НК;
НС.Количество = Формат(ДБФС.AMOUNT, "ЧГ=0");
НС.Сумма = Формат(ДБФС.SUMMA, "ЧГ=0");
НС.Цена = Формат(ДБФС.PRICE, "ЧГ=0");
НС.Договор = Формат(ДБФС.NI_ID, "ЧГ=0");
ДБФС.Записать();
Но у меня он все равно ругается
{Форма.Форма1.Форма(284,29)}: Ожидается выражение
ТЗНакл.Индексы.Добавить(<>>«Договор»); (Проверка: Толстый клиент (обычное приложение))"
Читают тему
(гостей: 1)