变量'SQ_LIB'在封闭块中隐藏了一个变量

Question

我搜索了其他论坛，并在每个代码示例中了解了为什么返回此错误，但无法看到它为什么会返回到我的代码中，因为我只有声明'intReleaseMasterID'一次。我试图将在循环外部声明和确定的变量传递给循环，并在循环的每次迭代中使用相同的变量 - 可以这样做吗？有什么建议么？

Protected Sub btnOrder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOrder.Click 
    Dim SQ_LIB As New SQL_Lib 
    Dim intReleaseMasterID As Integer 
    Dim param(1) As SqlParameter 
    param(0) = SQ_LIB.AddParameter("@UserName", Membership.GetUser().UserName) 
    param(1) = SQ_LIB.AddParameter("@ReleaseMasterID", Data.ParameterDirection.Output, 0) 
    SQ_LIB.RunProcedure("ReleaseMasterToPrimaryLocation", param) 
    intReleaseMasterID = CInt(param(1).Value) 

    For Each item As GridDataItem In RadGrid1.SelectedItems 
     Response.Write(item("InventoryDetailSerialID").Text.ToString()) 
     Dim strInventoryDetailSerialID As String = item.GetDataKeyValue("InventoryDetailSerialID") 
     Dim SQ_LIB As New SQL_Lib 
     Dim param(2) As SqlParameter 
     param(0) = SQ_LIB.AddParameter("@InventoryDetailSerialID", strInventoryDetailSerialID) 
     param(1) = SQ_LIB.AddParameter("@UserName", Membership.GetUser().UserName) 
     param(2) = SQ_LIB.AddParameter("@ReleaseMasterID", intReleaseMasterID) 
     SQ_LIB.RunProcedure("ReleaseDetailsToPrimaryLocation", param) 
    Next 
End Sub 

我添加了另一个子程序，这样的参数变量不在同一范围，但无论是CreatePartOrders子程序从来没有运行或不能从RadGrid1.SelectedItems获取信息或者说我没有通过intReleaseMasterID正确变量。这是什么？

Protected Sub btnOrder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOrder.Click 
    Dim SQ_LIB As New SQL_Lib 
    Dim intReleaseMasterID As Integer 
    Dim param(1) As SqlParameter 
    param(0) = SQ_LIB.AddParameter("@UserName", Membership.GetUser().UserName) 
    param(1) = SQ_LIB.AddParameter("@ReleaseMasterID", Data.ParameterDirection.Output, 0) 
    SQ_LIB.RunProcedure("ReleaseMasterToPrimaryLocation", param) 
    intReleaseMasterID = CInt(param(1).Value) 

    CreatePartOrders(intReleaseMasterID) 
End Sub 
___________________________________________________________ 
Public Sub CreatePartOrders(ByVal intReleaseMasterID As Integer) 
    For Each item As GridDataItem In RadGrid1.SelectedItems 
     Response.Write(item("InventoryDetailSerialID").Text.ToString()) 
     Dim strInventoryDetailSerialID As String = item.GetDataKeyValue("InventoryDetailSerialID") 
     Dim SQ_LIB As New SQL_Lib 
     Dim param(2) As SqlParameter 
     param(0) = SQ_LIB.AddParameter("@InventoryDetailSerialID", strInventoryDetailSerialID) 
     param(1) = SQ_LIB.AddParameter("@UserName", Membership.GetUser().UserName) 
     param(2) = SQ_LIB.AddParameter("@ReleaseMasterID", intReleaseMasterID) 
     SQ_LIB.RunProcedure("ReleaseDetailsToPrimaryLocation", param) 
    Next 
End Sub 

Answer 1

您在两个地方，下面标注创建SQL_Lib ...

Protected Sub btnOrder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOrder.Click 
    Dim SQ_LIB As New SQL_Lib **HERE is number 1** 
    Dim intReleaseMasterID As Integer 
    Dim param(1) As SqlParameter 
    param(0) = SQ_LIB.AddParameter("@UserName", Membership.GetUser().UserName) 
    param(1) = SQ_LIB.AddParameter("@ReleaseMasterID", Data.ParameterDirection.Output, 0) 
    SQ_LIB.RunProcedure("ReleaseMasterToPrimaryLocation", param) 
    intReleaseMasterID = CInt(param(1).Value) 

    For Each item As GridDataItem In RadGrid1.SelectedItems 
     Response.Write(item("InventoryDetailSerialID").Text.ToString()) 
     Dim strInventoryDetailSerialID As String = item.GetDataKeyValue("InventoryDetailSerialID") 
     Dim SQ_LIB As New SQL_Lib **HERE is number 2** 
     Dim param(2) As SqlParameter 
     param(0) = SQ_LIB.AddParameter("@InventoryDetailSerialID", strInventoryDetailSerialID) 
     param(1) = SQ_LIB.AddParameter("@UserName", Membership.GetUser().UserName) 
     param(2) = SQ_LIB.AddParameter("@ReleaseMasterID", intReleaseMasterID) 
     SQ_LIB.RunProcedure("ReleaseDetailsToPrimaryLocation", param) 
    Next 
End Sub 

您正在使用暗淡至于两次申报。