Question

VB 保存记录时出错,提示"由于数据表'销售信息'需要一个相关记录,不能添加或修改记录",代码如下,求解答

Dim MXrs As New ADODB.Recordset
Set MXrs = New ADODB.Recordset
strsql = "select * from 销售明细"
MXrs.Open strsql, conn, adOpenKeyset, adLockPessimistic
For i = 1 To Grid1.Rows - 1
MXrs.AddNew
For j = 1 To Grid1.Cols - 1

MXrs.Fields(j - 1).Value = "" & Grid1.TextMatrix(i, j)

Next
MXrs.Update
Next
MXrs.Close
Set MXrs = Nothing
End Sub

Answer 1

为什么要这么复杂，不是可以直接用dbgrid，关联rs，dbgrid修改完了以后直接update，哪还需要再把表格的数据手工写进rs?

追问

我用的是Msflexgrid,想在修改完数据点保存,然后把MSflexgrid的所有数据全部导进ACCESS数据库

追答

这条语句是不是要改成这样。
MXrs(0).Fields(j - 1).Value = "" & Grid1.TextMatrix(i, j)

追问

这句有什么作用呢?跟我原来的区别在哪里啊?

追答

MXrs(0)，与你的区别在这里，这里指定的是具体的一个记录。