【结贴】求助 "0.0" is not a vaild timestamp

itking

'0.0' is not a valid timestamp？？？

lixy

不是有技术人员给你们改问题么？您提给他吧

itking

我一直遵循自己能改就自己修改，不能修改就问，你们售后怕我今天一个问题明天一个问题，我想还是自己能处理最好。

itking

请问 最后是如何解决的？我也出现此类情况

itking

调试发现 程序出现如下错误：
        for I := 0 to lCloneDataSet.Fields.Count - 1 do
          if (not SysUtils.SameText(lCloneDataSet.Fields[I].FieldName, 'FGUID'))
             and (lQuery.FindField(lCloneDataSet.Fields[I].FieldName) <> nil) then
           begin
             lCloneDataSet.FieldByName(lCloneDataSet.Fields[I].FieldName).Value :=
               lQuery.FieldByName(lCloneDataSet.Fields[I].FieldName).Value;
           end;

I=143381254  这里是不是有问题？？

lixy

我也是售后。。给你改过那个不能发布信息问题的。你这个问题需要慢慢去看为什么，不是很明显的错误。

itking

这个提示，在我们系统中不止一处，有很多出都这样，跟踪后，基本上都是上面一段代码。

   for I := 0 to lCloneDataSet.Fields.Count - 1 do
          if (not SysUtils.SameText(lCloneDataSet.Fields[I].FieldName, 'FGUID'))
             and (lQuery.FindField(lCloneDataSet.Fields[I].FieldName) <> nil) then
           begin
             lCloneDataSet.FieldByName(lCloneDataSet.Fields[I].FieldName).Value :=
               lQuery.FieldByName(lCloneDataSet.Fields[I].FieldName).Value;
           end;

itking

很奇怪：
经调试发现  lCloneDataSet.Fields.Count  = 1
为什么后面的 I =143381254  ？呢

itking

for I := 0 to lCloneDataSet.Fields.Count - 1 do
          if (not SysUtils.SameText(lCloneDataSet.Fields[I].FieldName, 'FGUID'))
             and (lQuery.FindField(lCloneDataSet.Fields[I].FieldName) <> nil) then
           begin
             lCloneDataSet.FieldByName(lCloneDataSet.Fields[I].FieldName).Value :=
               lQuery.FieldByName(lCloneDataSet.Fields[I].FieldName).Value;
           end;


调试 发现 lCloneDataSet.Fields.Count =1
而 循环体内  I=143381254

这是为什么？如何改正？

atiger

呵呵，你的I又是fields一个参数，又是搞循环，应该搞两个变量
for  I := 0 to lCloneDataSet.Fields.Count - 1 do
          if (not SysUtils.SameText(lCloneDataSet.Fields[I].FieldName, 'FGUID'))
             and (lQuery.FindField(lCloneDataSet.Fields[I].FieldName) <> nil) then
           begin
             lCloneDataSet.FieldByName(lCloneDataSet.Fields[I].FieldName).Value :=
               lQuery.FieldByName(lCloneDataSet.Fields[I].FieldName).Value;
           end;