Форум: "Базы";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
ВнизУ меня есть такая процедура Найти похожие ветки
← →
Ольга (2002-01-22 14:19) [0]Все работает, а вот в ListBox3 данные не меняются, не понимаю в чем дело
procedure TForm1.Button6Click(Sender: TObject);
var i,l,j:integer;
s:string;
begin
Table2.close;
Table2.CachedUpdates:=false;
if button6.Caption="Удаленные данные" then
begin
table2.TableName:="last.dbf";
button6.Caption:="Рабочие данные" ;
listbox1.font.Color:=clblue;
listbox2.font.Color:=clblue;
listbox3.font.Color:=clblue;
end
else
begin
table2.TableName:="data.dbf";
button6.Caption:="Удаленные данные";
listbox1.font.Color:=clblack;
listbox2.font.Color:=clblack;
listbox3.font.Color:=clblack;
end;
table1.close;
Table1.EmptyTable;
table2.cachedupdates:=true;
table2.Open;
table1.open;
for i:=1 to table2.recordcount do
begin
table1.insert;
table1.fields[0].asstring:=table2.fields[0].asstring;
table1.fields[1].asstring:=table2.fields[1].asstring;
l:=length(table2.fields[2].asstring);
table1.fields[2].asstring:=table2.fields[2].asstring[l];
for j:=1 to l-1 do
begin
s:=table2.fields[2].asstring[j];
table1.fields[2].asstring:=table1.fields[2].asstring+s;
end;
table2.next;
end;
with Table1 do
begin
try
ApplyUpdates;
except
raise;
end;
CommitUpdates;
end;
listbox1.clear;
listbox2.clear;
listbox3.clear;
Table1.First;
for i:=1 to table1.RecordCount do
begin
listBox1.Items.Add(Table1.FieldbyName("Otdel").asstring);
listBox2.Items.Add(Table1.FieldbyName("Name").asstring);
listBox3.Items.Add(Table1.FieldbyName("Parol").asstring);
table1.Next;
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c