【结贴】代码出错**

shiyg

var
  CellData2: String;
OrigData : Variant;
begin
  OrigData := DataSetBroker1.dataset.FieldByName(FDataInfo.FieldName [I]).AsVariant;
      if OrigData <> nil then
    begin
      CellData2 := '';
      case VarType(OrigData) of
         varSmallint,varByte, varInteger:
          begin
            CellData2 := CellData2 + objecthelper.ToString(VarAsType(OrigData,varInteger));
          end;
varDate:
          begin            
            CellData2 := CellData2 + objecthelper.ToString(VarAsType(OrigData,vardate));
          end;
在CellData2 := CellData2 + objecthelper.ToString(VarAsType(OrigData,vardate));这句出错。
提示

shiyg

麻烦看一下，在线等

zfang

objecthelper.ToString(objecthelper.ToDelphiDateTime(VarAsType(OrigData,vardate)))
这样子用下

shiyg

是不出错了，但是数据不对，本来是2008-1-10成了39457

zfang

那你就这样用
Business.system.Sysutils.DateToStr(objecthelper.ToDelphiDateTime(VarAsType(OrigData,vardate)));

alang

Variant类型转换是效率比较低的，如果这个函数在循环中调用的化，建议用字段类型做判断
直接用AsString  AsDateTime  AsInteger这样来取字段的值

shiyg

字段类型做判断怎么做？

zfang

if DataSetBroker1.DataSet.FieldByName('zd').DataType = TFieldType.ftInteger then
这样子

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。