主题：请教，新增行时，自动赋值的问题

For i As Integer = 1 To 10
    Dim ndr As DataRow = DataTables("表a").addnew
    ndr("某列") = "abc"
    ndr("数量") = i
Next