0

我对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()都是由于我试图弄清楚。

谢谢。

4

1 回答 1

1

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

NewRecord = DtTable.NewRow()

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

于 2013-07-26T13:27:11.480 回答