Vb.net 如何按照用户在文本框中的定义多次将datarow添加到表中?

Vb.net 如何按照用户在文本框中的定义多次将datarow添加到表中?,vb.net,datagridview,datatable,datarow,Vb.net,Datagridview,Datatable,Datarow,我在vb.net项目中创建了一个datatable,而datatable是datagridview的datasource 当用户单击名为btnAdd的按钮时,datarow将添加到datatable中。对于一个数据行,我可以如下所示。但是还有另一个名为“txtQuantity”的文本框用于项目数量,用户可以在其中键入任何数字。所以我的问题是,我如何才能像用户在txtQuantity中提到的那样多次向datatable添加相同的datarow Dim dr As DataRow = dtO

我在vb.net项目中创建了一个
datatable
,而
datatable
datagridview
datasource

当用户单击名为
btnAdd
的按钮时,datarow将添加到datatable中。对于一个数据行,我可以如下所示。但是还有另一个名为“
txtQuantity
”的文本框用于项目数量,用户可以在其中键入任何数字。所以我的问题是,我如何才能像用户在txtQuantity中提到的那样多次向datatable添加相同的datarow

    Dim dr As DataRow = dtOrderingItem.NewRow

        dr("ItemCode") = clckdItemCode
        dr("ItemName") = clickdItemName
        dr("ServiceCode") = srvc
        dr("RatePerItem") = txtItemRate.Text

        dtOrderingItem.Rows.Add(dr)
        dgvCart.datasource=dtOrderingItem
使用
Integer.TryParse()
将文本框中的值转换为整数,然后按照SSS的建议在
For
循环中使用该值

Dim number As Integer
If Integer.TryParse(txtQuantity.Text, number) Then
    If number >= 1 Then
        Dim dr As DataRow = dtOrderingItem.NewRow
        dr("ItemCode") = clckdItemCode
        dr("ItemName") = clickdItemName
        dr("ServiceCode") = srvc
        dr("RatePerItem") = txtItemRate.Text

        For i As Integer = 1 To number
            dtOrderingItem.Rows.Add(dr)
        Next

        dgvCart.datasource = dtOrderingItem
    End If
End If

你能为下一个循环使用
吗?@SSS,是的,我按照你的建议做了。谢谢你的支持:)谢谢你的支持。有你们的支持,我也可以通过这一步。。。竖起大拇指