向TDBGridE控件中添加数据

[gyj5240]

注入程序进程后，获取到了DBGRID code:

  vWinControl := FindControl(g_hWin);
   for I := 0 to vWinControl.ComponentCount - 1 do
    begin
       if SameText(vWinControl.Components[I].ClassName, 'TDBGridE') then
        begin
          DBGRID := TDBGrid(vWinControl.Components[I]);
          Break;
        end; 
    end;



后面
Delphi(Pascal) code

 DataSet := DBGRID.DataSource.DataSet;
   for i:=1 to 10 do
          begin
            DataSet.Insert;
            dataset.Fields[7].AsString:=inttostr(i);
            dataset.Fields[8].AsString:=inttostr(i*10);
            dataset.Fields[9].AsString:=inttostr(i*20);
            dataset.Fields[10].AsString:=inttostr(i*30);
            dataset.Fields[11].AsString:=inttostr(i*40);
            dataset.Fields[12].AsString:=inttostr(i*50);
            dataset.Fields[4].AsString:=inttostr(i*60);
            DataSet.Post;  
          end;

第一条导入OK，第二条导入后发现DBGRID里2条数据内容一模一样
不管加不加dataset.next;

而且第二条添加后一会导致程序崩溃
现在只差最后这一步了。。。

请各位大牛帮忙

[sforiz]

DataSet.Insert; 改为 DataSet.Append;试试

[gyj5240]

没用的
急求大神啊

[gyj5240]

大牛请过来看

[ych12333]

不知道处理每。

[xxzqbxxzqb]

如果是显示数据表中的信息，很好实现。 如果是显示别的数据，用stringgrid控件也行呀

[ppmemoryback]

把DataSet.Post; 这句去掉就可以了 我遇到过一样的问题

[ppmemoryback]

给分吧 我说的是对的哦