有关数据保存的问题(50分)

我的窗口上有几个EDIT文本框，有一个BITBTN1按钮，当点击BITBTN1后，我要将各文本框中的内容保存到
数据库中，首先我建了一个数据模块DN，其中的TABLE1和DATESOURCE1。
程序如下：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
count1:integer;

begin
with dN do
begin
table1.active:=true;
count1:=table1.recordcount;
table1.append;
table1.fieldbyname('Bh').asstring:=dbedit1.text;//DBEDIT1的：DATESOURCE：DN。DATASOURCE1；
//DBEDIT1的：DATAFIELD：BH；
table1.post;
table1.active:=false;
table1.refresh;
end;
程序编译时通过了，当我在DBEDIT中输入字符后点击BITBTN1时，会出现钥匙妨碍的字样。
于是我将BH 设为数据表格的键，执行时又提示：不能在执行这项操作在封闭的：DATASET。
为什么会这样呢，我那里搞错了呀。请朋友们帮忙。

end;

close 以后不能 refresh

table1.active:=false;
table1.refresh;

对啊，这两句问题大了。

正确的如何改呢。

去掉table1.active:=false;
或：
将table1.refresh替换未table1.active := true;

还是不行。

table1.active:=false;
table1.refresh;
改为
table1.Close;
table1.Open;

谢谢大家了，可以用了，我是将TABLE1：=TRUE；和TABELE1：=FALSE；去掉就行啦。