delphi调用excel 中某一隔，有数值型有文本型，提示string与Double类型不对。
ADODataSet1.Fields[j-1].AsString:=v.Cells[i,j].AsString ;//v.Cells[i,j].AsString为excel 中某一隔，有数值型有文本型
提示string与Double类型不对。
如何强制转换

[解决办法]
帮顶
[解决办法]

Delphi(Pascal) code

var ss:stringtryss:=floattostr(v.Cells[i,j].asfloat);exceptss:=v.Cells[i,j].asstring;end;ADODataSet1.Fields[j-1].AsString:=ss;
[解决办法]
var d:Double;i:Integer;
begin
 i:=Val(v.Cells[i,j].AsString ,d);
 if i<>0 then//转换失败，那么就是字符了
   ADODataSet1.Fields[j-1].AsString:=v.Cells[i,j].AsString
 else ADODataSet1.Fields[j-1].AsString:=FloatToStr(d);
end;

[解决办法]
取 v.Cells[i,j].Value
[解决办法]
 v.Cells[i,j].Value 我也觉得是取Value,用olevariants取
[解决办法]
ADODataSet1.Fields[j-1].values:=v.Cells[i,j]
这样试试
[解决办法]
mark