ListView1->Columns->Clear();
ListView1->Items->Clear();这里清空的时候会出现头部留下灰色的
TListColumn *pCol;
ListView1->ViewStyle = vsReport;
pCol = ListView1->Columns->Add();
pCol->Caption = "中文描述";
pCol->Width = 100;
pCol = ListView1->Columns->Add();
pCol->Caption = "字段名称";
pCol->Width = 100;
pCol = ListView1->Columns->Add();
pCol->Caption = "字段类型";
pCol->Width = 80;
pCol = ListView1->Columns->Add();
pCol->Caption = "字段长度";
pCol->Width = 80;
pCol = ListView1->Columns->Add();
pCol->Caption = "描述";
pCol->Width = 230;// 填加列
// 添加行
for(;it!= LFieldTemp.end();it++)
{
TListItem *item;
item = ListView1->Items->Add();
item->Caption = (*it).GetName();
item->SubItems->Add((*it).GetCode());
item->SubItems->Add((*it).GetType());
AnsiString str;
int length = (*it).GetLength();
char buf[10];
sprintf(buf,"%d",length);
str = buf;
item->SubItems->Add(str);
item->SubItems->Add((*it).GetDescription());
if((*it).GetSerialNum())
{
ListView1->Items->Item[i]->ImageIndex = 5;
}
else
{
ListView1->Items->Item[i]->ImageIndex = -1;
}
i++;