Visual Basic输入框循环错误

Question

我对VB很陌生。我正在尝试在输入框之后插入新记录（事件触发是按钮单击）。我有这个工作正常，它更新SQL服务器。

然后我尝试添加一个循环，带有一个简单的vbYesNo消息框，vbYes触发循环。无论是否点击是或否，它都无法正常工作。

我希望它（按下是），提示输入两个条形码，然后它会插入新记录。但是当我刚刚添加它时，我收到一条错误，说“此行已经属于此表”。

任何帮助？

以下是代码：

    Do While vbYes
        TrackCode = InputBox("Please Scan Shipment Barcode")
        NewRecord(5) = TrackCode
        NewRecord(0) = Ddate
        UnqCode = InputBox("Please Scan Parcel Barcode (eg JD123456789)")
        NewRecord(6) = UnqCode
        DtTable.Rows.Add(NewRecord)
        NewRecord.AcceptChanges()
        DtTable.AcceptChanges()
        TableAdapterManager.UpdateAll(trackingDataSet)
        MsgBox("Do You Have Anything Else To Scan?", vbYesNo)
 Loop

很抱歉，如果这很简单的话。此外，所有AcceptChanges()都是由于我试图解决这个问题。

感谢。

Answer 1

假设DtTable是DataTable而NewRecord是DataRow，请尝试在循环内添加第一行：

NewRecord = DtTable.NewRow()

这将在每次迭代时创建一个新的数据行。