[搞定]如何复制列的值**

zykj · 发表于 2007-10-25 16:49:15

procedure TDC_Z_FDQKYBB.Action1Execute(Sender: TObject);  //行复制插入
var
  aa : String;
I : Integer;
begin
   For I := 1 to dsbTS.DataSet.FieldCount - 1 do
   begin
         dsbTS.DataSet.edit;
         dsbTS.DataSet.Fields[I].AsFloat := 9;
   end;
end;

lixy · 发表于 2007-10-25 17:00:57

楼主什么意思？
楼主这不是写了代码了？

zykj · 发表于 2007-10-25 17:29:57

要不这样：怎样获得当前编辑的字段的字段名，还有Fields的Index值？

yancm · 发表于 2007-10-25 17:43:27

字段名， DataSet.Fields.FieldName Index不就是i吗？

atiger · 发表于 2007-10-25 17:53:01

取字段名： http://bbs.justep.com/forum.php?mod=viewthread&tid=4312

zykj · 发表于 2007-10-26 15:51:52

自己已经搞定。。。结贴

atiger · 发表于 2007-10-26 16:37:24

请楼主，把方法共享一下，谢谢

		自动登录	找回密码
密码			立即注册