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

var ss:string


try
ss:=floattostr(v.Cells[i,j].asfloat);
except
ss:=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