代码出错提示（编译错误：应为语句结束） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim rl31 As Integer = Tables("肉猪新增窗口表").Rows(0)(1)

Dim rq As new List(of Date)

For i As Integer = 30 To 50

rq.add(Date.Today.AddDays(-i))

Dim shang As Integer = rl31 \ 20

Dim yu As Integer = rl31 Mod 20

Dim a1 As Integer = shang + 1

Dim a2 As Integer = shang

Dim gs As new List(of Integer)

For i As Integer = 0 To yu

gs.Add(a1)

For i As Integer = yu + 1 To 20

gs.add(a2)

For i As Integer = 1 To 20

Dim drs As new List(of DataRow) = DataTables("肉猪信息").AddNew(gs(i))

For n As Integer = 0 To gs(i) - 1

drs(n)("编号") = Format(rq(i),"yyyyMMdd") & Format(n+1,"000")

蓝色背景的代码不知哪里出错了，提示

编译错误：应为语句结束

错误代码：Dim drs As new List(of DataRow) = DataTables("肉猪信息").AddNew(gs(i))

请老师帮我看一下，该怎么改？

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