数据记忆和应用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

上述代码中，我定义了dr1，希望在 i=0 时记忆下来，然后应用到i = 1 等行里面去，但老是出现如下错误：

编译错误：dr1 在封闭块中隐藏变量

请教如何处理这个问题？谢谢。

代码没有问题，是这个事件其它代码也定义了一个同名的dr1变量，重复定义了，改为其它名称即可

If e.DataCol.name ="特殊产品"

Dim Filter As String = "[生产piao号] = '" & e.DataRow("生产piao号") & "'"

Dim drs As List(Of DataRow) = DataTables("弯头开料单").Select(Filter)

Dim dr15 As String

For i As Integer = 0 To drs.Count-1

If i = 0

dr15 = e.DataRow("特殊产品")

Else

drs(i)("特殊产品") = dr15

End If

上述代码的目的是，如果在第一行的“特殊产品”里面输入了数据，那么在后面所有同生产piao号的行，其“特殊产品”都复制输入同样的数据。但是实际运行效果是，最后一行的“特殊产品”却总是空白。请教为什么呢?

If e.DataCol.name ="特殊产品"

Dim Filter As String = "[生产piao号] = '" & e.DataRow("生产piao号") & "' and [_Identify] <>" & e.DataRow("_Identify")

Dim drs As List(Of DataRow) = DataTables("弯头开料单").Select(Filter)

Dim dr15 As String= e.DataRow("特殊产品")

For i As Integer = 0 To drs.Count-1

drs(i)("特殊产品") = dr15

End If

主题：数据记忆和应用