急啊！！Table1->Insert()咋就添加不了记录？？
运用office2k控件将Excel表导入paradox数据表
void __fastcall TImport_data::Button1Click(TObject *Sender)
{WideString aa; //定义aa
if (OpenDialog1->Execute()) //直接打开档案选择视窗
{
aa=OpenDialog1->FileName; //指定档名
ExcelApplication1->Connect(); //EXCEL APPLICATION 连接
ExcelApplication1->Workbooks->Open(aa);
ExcelWorkbook1->ConnectTo(ExcelApplication1->get_Activ eWorkbook());
ExcelApplication1->set_Visible(0,false); //指定EXCEL视窗为可视
ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveS heet()) ;
Edit1->Text=aa;
ShowMessage("OK!You can import the datas now!");
}
}
void __fastcall TImport_data::Button2Click(TObject *Sender)
{
int a=ExcelWorksheet1->UsedRange[0]->Rows->Count;
for (int i=2;i<=a;i++)
{
Variant row(i),r;
Variant col1(1);
Variant strvalue;
Table1->Insert();
r=ExcelWorksheet1->Cells->get__Default(row,col1);
Table1->FieldByName("Dealer_Code")->AsString=String(r) ;
Table1->Post();//添加不了记录阿！！
}
ShowMessage("OK");
}
程序运行后
我用database desktop 察看paradox表
发现并没有数据在里面阿
但是我ShowMessage(r)可以显示每一条需要插入的记录的值阿
谢谢！~~~~~~！！！！
问题点数：20、回复次数：4Top
1 楼jiju8484（积聚）回复于 2006-06-01 15:58:04 得分 0
着急啊！！！
达人快帮偶look一下！！Top
2 楼playwarcraft（时间就像乳沟,挤挤还是有的）回复于 2006-06-02 15:54:07 得分 0
試試看吧
Table1.Insert();
Table1.FieldValue["Dealer_Code"]=String(r);
Table1.Post();
Top
3 楼stevenjscn（小胖）回复于 2006-06-05 15:18:35 得分 0
查一下VARIANT R的值？用单步运行查。Top
4 楼stevenjscn（小胖）回复于 2006-06-05 15:19:50 得分 0
另提示最好用APPEND（）；Top
