＋设为首页 ＋添加到收藏夹
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer; //行数
begin
adoconnection1.BeginTrans;
begin
try
for i:=0 to 50 do
if (stringgrid1.Cells[0,i]<>) and (stringgrid1.Cells[1,i]<>) then
begin
adotable1.Append;
adotable1.FieldByName(Name).AsString:=stringgrid1.cells[0,i];
adotable1.FieldByName(StoreId).AsString:=stringgrid1.cells[1,i];
adotable1.post;
end;
adoconnection1.committrans;
Exception
adoconnection1.RollbackTrans; 在调试此行时系统报错：(Missing operator or semicolon)
end;
end;
本人的D6已打Pack2
Exception---->except
