一个软件问题，愿出一千块解决。

For   i:=1   to   5000   do 
        begin 
            ADOQuery5.Edit;       
            For   j:=0   to   286   do       
                    begin       
                        ADOQuery5.fieldbyname( 'pd '+IntToStr(j)).AsInteger:=cwcs[i,j];       
                    end; 
            ADOQuery5.Post;       
            ADOQuery5.Next; 
        end; 如有愿者，请留下联系方式，数据库是SQL2005/7.21G，以便把代码和数据库传送过去，实在没办法了。当然代码不止上面那么一点点。