2,498
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
collecte 2003-01-27
- 打赏
- 举报
up
antimicro 2003-01-27
- 打赏
- 举报
我使用DataSource了啊，而且数据库里文件里也有数据（Access)。
ADOQuery->DataSourcee->DBListBox
可我设置了DBListBox的fieldname属性，可DBListBox就是没有显示数据。
ADOQuery->DataSourcee->DBListBox
可我设置了DBListBox的fieldname属性，可DBListBox就是没有显示数据。
LKylix 2003-01-24
- 打赏
- 举报
怎么有人贴上了C++ Builder的代码
我不懂电脑 2003-01-24
- 打赏
- 举报
The following example copies the selected rows in a db grid to a list box.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (DBGrid1->SelectedRows->Count > 0)
{
AnsiString s = "";
TDataSet *pDS = DBGrid1->DataSource->DataSet;
for (int i=0; i < DBGrid1->SelectedRows->Count; i++)
{
pDS->GotoBookmark((void *)DBGrid1->SelectedRows->Items[i].c_str());
for (int j = 0; j < pDS->FieldCount; j++)
{
if (j>0)
s = s+", ";
s = s + pDS->Fields->Fields[j]->AsString;
}
ListBox1->Items->Add(s);
s = "";
}
}
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (DBGrid1->SelectedRows->Count > 0)
{
AnsiString s = "";
TDataSet *pDS = DBGrid1->DataSource->DataSet;
for (int i=0; i < DBGrid1->SelectedRows->Count; i++)
{
pDS->GotoBookmark((void *)DBGrid1->SelectedRows->Items[i].c_str());
for (int j = 0; j < pDS->FieldCount; j++)
{
if (j>0)
s = s+", ";
s = s + pDS->Fields->Fields[j]->AsString;
}
ListBox1->Items->Add(s);
s = "";
}
}
}
GreenWaterBlueSky 2003-01-24
- 打赏
- 举报
一般是通过TDataSource连接的，
