没有你那种语法
For i As Integer = 1 To 20 For n As Integer = 0 To gs(i) - 1 Dim ndr As DataRow = DataTables("肉猪信息").AddNew() ndr("编号") = Format(rq(i),"yyyyMMdd") & Format(n+1,"000") NextNext