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))
Next
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)
Next
For i As Integer = yu + 1 To 20
gs.add(a2)
Next
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")
Next
Next
蓝色背景的代码不知哪里出错了，提示
编译错误：应为语句结束
错误代码：Dim drs As new List(of DataRow) = DataTables("肉猪信息").AddNew(gs(i))
请老师帮我看一下，该怎么改？
加好友 
发短信
Post By：2015/8/11 11:55:00 [只看该作者]
