主题：INSERTNEW应用的问题

Dim r As Row = Tables("表A").Current
Dim dr As DataRow
dr = DataTables("表A").Find("品牌 ='" & r("品牌") & "' And [编号]< " & r("编号"), "编号 Desc")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("表A").FindRow(dr)
    If wz >= 0 Then
        Tables("表A").Position = wz
        Tables("表A").InsertNew()
    End If
End If

  你跟着这个代码去修改吧!