是在主副表都新新增时的问题
DATAGRID绑定数据表“入库单明细”，表中有：入库单编号、产品编号、数量，但是入库单编号由系统自动生成，不用录的，也就是DATAGRID只有，产品编号和数量这两列，在保存前给入库单编号这一列加入编号。我的代码如下，
Dim s As Integer = Me.DsBA0101.Tables("产品").Rows.Count 'Me.DsBA0101.Tables("产品").Rows.Count
dr = Me.DsBA0101.Tables("产品").Rows(bmcp.Position)'运行到这里DATAGIRD中的数据丢失，提示出错
If s > 0 Then
Try
For p = 0 To s-1
If IsDBNull(dr("产品编号")) Then
dr("产品编号") = MAID  '为系统计算出的主表入库单编号
End If
Next p
Finally
End Try
End If
Me.daKHCP.Update(Me.DsBA0101, "产品")