主题：代码出错提示（编译错误：应为语句结束）

没有你那种语法

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")
    Next
Next

只是一个名称，你换成什么名字都可以。