如何分部分对同一条记录进行修改?急需.
jinke 2000-05-31 07:44:00 1.先用ADDNEW 的方法在REPORTINFO 的数据库报表中增加一条记录,
(FIELDS: CUSTNO,REPORTNO,REPORTNAME,REPORTKIND,WRITER),
数据库中已经有一条记录:
custno = 1
reportno 空
REPORTNAME 空
REPORTKIND 空
WRITER 空
然后按“增加”按钮
代码如下:
Data1.Recordset.Sort = "custno"
Data1.Recordset.MoveLast
newid = Data1.Recordset.Fields("custno") + 1
Data1.Recordset.AddNew
Data1.Recordset.Fields("custno") = newid
Data1.Recordset.Fields("reportname") = str03
Data1.Recordset.Fields("writer") = Text4.Text
Data1.Recordset.Update
Data1.Recordset.MoveLast '记录需要重新定位
Unload Me
2.然后按“保存”按钮,执行如下代码
Data1.Recordset.Sort = "custno"
Data1.Recordset.MoveLast
Data1.Recordset.Edit
Data1.Recordset.Fields("reportno") = str04
Data1.Recordset.Fields("reportkind") = str04 & str07
Data1.Recordset.Update
结果:
第一次记录可以按正常结果被记录数据库,(对应各字段),
但重新按“增加”按钮,先增加一条记录,在custno,reportname,writer中
输入数据,再按“保存”按钮,此时数据却没有写进第三条记录的对应字段中
。急需。
分析:
第二次保存,数据却写到第一次增加的记录中,记录定位不正确,请教
如何解决,上面代码哪儿有问题。
另CUSTNO 是唯一的,用整数,是否可以求的CUSTNO的MAX来定位记录。