回 帖 发 新 帖 刷新版面

主题:如何把日期框的当前值指定给表内的字段?

begin
  datamodule2.A.Close;
  datamodule2.A.SQL.Clear;
  if k<>0 then
  begin
    datamodule2.A.SQL.Add('select * from products where custId=:k');
    datamodule2.A.Parameters.ParamValues['k']:=k;
    datamodule2.A.Open;
    dbedit19.DataField:='color';
    DBRadioGroup1.DataField :='protype';
    DBImage1.DataField :='proimage';
   end
END;

与以上其他字段的指定类似,我如何把DateTimePicker中取得的日期指定给表中的'transdate'字段?
语句格式是什么?
我使用----DateTimePicker1.DataField :='transdate';
编译出错

回复列表 (共6个回复)

沙发

DateTimePicker1.Date

板凳

还是不行,提示TDate和string类型不匹配,我在表内定义的字段transdate
类型也是日期型的阿,不存在string类型,为什么会有这样的提示呢?

3 楼

DateTimePicket1.DataField??
你其他的用的是数据感知组件.
要么你到网上下载看有没有诸如类似:DBDateTimePicket1 控件;
要么你需要使用语句控制:
with Query do
begin
    FieldByName('transdate').AsDateTime:=DateTimePicker1.DateTime; 
    Post;
end;
//----------------------------
DateTimePicket1.DateTime:=Query.FieldByName('transdate').AsDateTime;

4 楼

明白!谢啦

5 楼

DateToStr(DateTimePicker1.Date)

6 楼

我跟5楼一样

我来回复

您尚未登录,请登录后再回复。点此登录或注册