这个循环错到哪儿了

[guess1975]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Query2->Close();
Query2->SQL->Clear();
Query2->SQL->Add("select * from xycfmx where bianh='000060'");
Query2->Open();

if (Query2->Eof==Query2->Bof)
ShowMessage("空");
else
{
do
{Query1->Edit();
Query2->Next();
Query1->FieldByName("DANWMC")->AsString=Query2->FieldByName("bianh")->AsString;


}
while((Query2->Eof)==true);

}

}
为什么只能提交一条记录 其实000060 一共有5条记录

[donwmufromdying]

Query1->Edit();
Query2->Next();
Query1->FieldByName("DANWMC")->AsString=Query2->FieldByName("bianh")->AsString;
你的Query1数据集是怎么回事？

[donwmufromdying]

代码请改成！
while(!Query2->Eof)
{
query1->Edit();
Query1->FieldByName("DANWMC")->AsString=Query2->FieldByName("bianh")->AsString;
Query1->Post();
Query2->Next();
}

[donwmufromdying]

对了！上面忘记Query1->Next以及判断Query1->Eof了

[sharkxie]

少了First();
Query2->Close();
Query2->SQL->Clear();
Query2->SQL->Add(qstr);
Query2->Open();
if(Query2->Eof)
{
return;
}
Query2->First();
while(!Query2->Eof)
{
ComboBox1->Items->Add(Query2->FieldByName("text")->AsString);
Query2->Next();
}

[i_love_pc]

do
{Query1->Edit();
Query2->Next();//Query2移动了，Query1是不是也要跟着动呢？
Query1->FieldByName("DANWMC")->AsString=Query2->FieldByName("bianh")->AsString;
}
while((Query2->Eof)==true);