5,927
社区成员
发帖
与我相关
我的任务
分享日期控件
请问下，delphi里面是如果将日期显示在日期控件里的，也就是说我移动记录，日期控件值随着变化。。。在dataset里的afterscroll事件更改日期控件的值不行啊
...全文
请发表友善的回复…
发表回复
zuozl 2003-03-07
- 打赏
- 举报
谢谢，解决了。。。
sysu 2003-03-06
- 打赏
- 举报
你在form的create事件中打开dataset，不要在设计时就把dataset打开。
zuozl 2003-03-06
- 打赏
- 举报
怪事情啊，我把这个表单在项目的options里改成自动建立，就可以了，手工create的form就不行，搞不懂哦，，，
zuozl 2003-03-06
- 打赏
- 举报
还是不行啊，，我的记录源都在一个DataModule里面，代码是:
zuozl 2003-03-06
- 打赏
- 举报
还是不行啊，，我的记录源都在一个窗体里面，代码是:
try
if Assigned(Form5.DateTimePicker1) then
Form5.DateTimePicker1.Date := DataSet.FieldValues['DateField'];
except
showmessage('test');
end;
if Assigned(DateTimePicker1) then 这一行提示出错，提示大概是：access voliation address....in module....
try
if Assigned(Form5.DateTimePicker1) then
Form5.DateTimePicker1.Date := DataSet.FieldValues['DateField'];
except
showmessage('test');
end;
if Assigned(DateTimePicker1) then 这一行提示出错，提示大概是：access voliation address....in module....
sysu 2003-03-06
- 打赏
- 举报
那就判断一下：
if Assigned(DateTimePicker1) then
DateTimePicker1.Date := DataSet.FieldValues['DateField'];
if Assigned(DateTimePicker1) then
DateTimePicker1.Date := DataSet.FieldValues['DateField'];
zuozl 2003-03-06
- 打赏
- 举报
这样不行，因为一打开表单就触发了afterscroll事件,访问DateTimePicker1时，DateTimePicker1还未建立，系统就出现异常，
yelei923 2003-03-06
- 打赏
- 举报
up
sysu 2003-03-06
- 打赏
- 举报
procedure TForm1.ADODataSet1AfterScroll(DataSet: TDataSet);
begin
DateTimePicker1.Date := DataSet.FieldValues['DateField'];
end;
begin
DateTimePicker1.Date := DataSet.FieldValues['DateField'];
end;
