请问个问题，关于于选择性输入。我在别处给再您加分。(10分)

adotable1.Insert;
adotable1['单编号']:=flatedit1.text;
adotable1['编号']:=flatedit3.text;
adotable1['公司']:=flatcombobox1.text;
adotable1['名称']:=flatedit4.text;
adotable1['方式']:=flatcombobox2.text;
adotable1['期间']:=flatspineditinteger2.text;
adotable1['金额']:=flatspineditinteger1.text;
adotable1['费']:=currencyedit1.text;
adotable1['生效日期']:=dateedit6.text;----------错误
当我没有输入生效日期时提示错误，请问如何能不用输入时间也不提示错误，还有就是我在他的
旁边放一个radiobutton 当选择它时这句代码不生效。

你的"生效日期"字段是什么类型
如果是DATATIME型的话
请这样写
adotable1['生效日期']:=strtodate(dateedit6.text);
就Ok了
还有一种方法是把字段类型改开Char

你说的那个方法我试了不能用。
我用的是access数据库，是时间字段。[?]

设成null值就可以了。
如果你输入日期，就赋日期
如果不输日期，就赋null值

try
adotable1['生效日期']:=strtodate(dateedit6.text);
except
adotable1['生效日期'].assign(nil);
end;