If e.DataRow("制造产品号").startswith("KS")
Dim Filter As String = "[制造产品号] = '" & e.DataRow("制造产品号") & "'"
Dim drs As List(Of DataRow) = DataTables("KSBOM").Select(Filter)
dim dr1 as string
For i As Integer = 0 To drs.Count - 1
If i = 0
e.DataRow("型号") = drs(i)("型号")
e.DataRow("原材料") = drs(i)("原材料")
e.DataRow("开料参数") = drs(i)("开料参数")
e.DataRow("标识") = drs(i)("标识")
e.DataRow("毫米长度") = drs(i)("毫米长度")
e.DataRow("长度") = drs(i)("长度")
e.DataRow("数量") = drs(i)("数量") * e.DataRow("套数")
dr1 = e.datarow("生产piao号")
Else
Dim nr As Row = Tables("弯头开料单").addnew
nr("型号") = drs(i)("型号")
nr("原材料") = drs(i)("原材料")
nr("开料参数") = drs(i)("开料参数")
nr("标识") = drs(i)("标识")
nr("毫米长度") = drs(i)("毫米长度")
nr("长度") = drs(i)("长度")
nr("数量") = drs(i)("数量") * e.DataRow("套数")
nr("生产piao号") = dr1
End If
Next
End If
上述代码中，我定义了dr1，希望在 i=0 时记忆下来，然后应用到i = 1 等行里面去，但老是出现如下错误：
编译错误：dr1 在封闭块中隐藏变量
请教如何处理这个问题？谢谢。
加好友 
发短信
Post By：2020/10/10 8:07:00 [只看该作者]
