insert 怎么数据插入到最后一条,而不是当前位置? 代码如下:
DM_htnslForm.ADOQuery1.Insert;
DM_htnslForm.ADOQuery1.FieldByName('自节点').Asstring:=Edit1.Text;
DM_htnslForm.ADOQuery1.FieldByName('父节点').Asstring:=Edit2.Text;
DM_htnslForm.ADOQuery1.FieldByName('序号').Asstring:=Edit3.Text;
DM_htnslForm.ADOQuery1.FieldByName('代码').Asstring:=Edit4.Text;
DM_htnslForm.ADOQuery1.FieldByName('编号').Asstring:= Edit5.Text;
DM_htnslForm.ADOQuery1.FieldByName('项目名称').Asstring:=Edit6.Text;
DM_htnslForm.ADOQuery1.FieldByName('单位').Asstring:=Edit7.Text;
DM_htnslForm.ADOQuery1.FieldByName('单价').Asstring:=Edit8.Text;
DM_htnslForm.ADOQuery1.Post;
DM_htnslForm.ADOQuery1.Insert;
DM_htnslForm.ADOQuery1.FieldByName('自节点').Asstring:=Edit1.Text;
DM_htnslForm.ADOQuery1.FieldByName('父节点').Asstring:=Edit2.Text;
DM_htnslForm.ADOQuery1.FieldByName('序号').Asstring:=Edit3.Text;
DM_htnslForm.ADOQuery1.FieldByName('代码').Asstring:=Edit4.Text;
DM_htnslForm.ADOQuery1.FieldByName('编号').Asstring:= Edit5.Text;
DM_htnslForm.ADOQuery1.FieldByName('项目名称').Asstring:=Edit6.Text;
DM_htnslForm.ADOQuery1.FieldByName('单位').Asstring:=Edit7.Text;
DM_htnslForm.ADOQuery1.FieldByName('单价').Asstring:=Edit8.Text;
DM_htnslForm.ADOQuery1.Post;
LZ所提的“位置”具体是指?查询(select)的默认顺序?
DM_htnslForm.ADOQuery1.first;
.....
....
DM_htnslForm.ADOQuery1.next;
如果还有疑惑,请把问题描述清楚一下。
append是在数据集的最后插入都是在数据集中的插入写入数据库都是在最后我们检索数据库可以通过其他的方式进行排序显示
..............
DM_htnslForm.ADOQuery1.Post;