我建了INTable 关联数据库中的一个叫'入库'的表,关键字为"入库单编号"
然后做如下方法:
INTable.Open;
INTable.SetKey;
INTable.FieldByName('入库单编号').AsString:=Edit6.Text;
INTable.GotoKey;
IF Edit6.Text=INTable.FieldByName('入库单编号').AsString
then
begin
INTable.Delete;
INTable.FieldByName('入库单编号').AsString:=Edit6.Text;
Edit6.Text:='';
end
.....
然后系统出错,提示说:
"INTable":Dataset not in edit or insert mode 是什么问题?
前面有调用过INTable
不过已经close了
帮帮忙,给个解决方法!小弟的短学期,现在就停顿在这了!!!
然后做如下方法:
INTable.Open;
INTable.SetKey;
INTable.FieldByName('入库单编号').AsString:=Edit6.Text;
INTable.GotoKey;
IF Edit6.Text=INTable.FieldByName('入库单编号').AsString
then
begin
INTable.Delete;
INTable.FieldByName('入库单编号').AsString:=Edit6.Text;
Edit6.Text:='';
end
.....
然后系统出错,提示说:
"INTable":Dataset not in edit or insert mode 是什么问题?
前面有调用过INTable
不过已经close了
帮帮忙,给个解决方法!小弟的短学期,现在就停顿在这了!!!
Intable.insert;或,Intable.edit;
INTable.SetKey;
INTable.FieldByName('入库单编号').AsString:=Edit6.Text;
INTable.GotoKey;
IF Edit6.Text=INTable.FieldByName('入库单编号').AsString
then
begin
INTable.Delete;
INTable.FieldByName('入库单编号').AsString:=Edit6.Text;
Edit6.Text:='';
end
.....
多加个Insert;或Edit试一下
INTable.SetKey;
INTable.FieldByName('入库单编号').AsString:=Edit6.Text;
INTable.GotoKey;
IF Edit6.Text=INTable.FieldByName('入库单编号').AsString
then
begin
INTable.Delete;
Intable.Edit;
INTable.FieldByName('入库单编号').AsString:=Edit6.Text;
Edit6.Text:='';
Intable.post;
end
后面的INTable.FieldByName('入库单编号').AsString:=Edit6.Text;这句话的前面没有吧数据集处于修改状态加上edit就应该可以了