0

ダイアログボックスに次のコードがあります。

Private Sub DAddSupplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim objProveedores As New AR.CMP.ControlCatalogo()
    Dim dvClases, dvEstados As DataView

    dvClases = objProveedores.ListarClasesProveedor()

    If dvClases IsNot Nothing AndAlso dvClases.Count > 0 Then

        For i As Integer = 0 To dvClases.Count
            cmbClase.Items.Add(dvClases(i)("Class"))
        Next

    End If
    'reach until here the debugger 
    dvEstados = objProveedores.ListarEstadosProveedor()

    If dvEstados IsNot Nothing AndAlso dvEstados.Count > 0 Then

        For j As Integer = 0 To dvEstados.Count
            cmbEstado.Items.Add(dvEstados(j)("Name"))
        Next

    End If

End Sub

しかし、最初のコードブロックがコメントされない限り無視される最初のコードブロックに到達するだけです。なぜこの動作ですか?

4

1 に答える 1