Visual Basic

Private lblDestination() As Label
Private Sub frmMain_Load(ByVal sender as Object, ByVal e As EventArgs) Handles MyBase.Load
    'I usually create the array in a single line of code.  This keeps me
    'from having to know the correct number of labels when initializing the array
    lblDestinations = New Label() {lblDestinationTemp, lblDestinationBottomTemp}

    'set properties and event handlers
    For i As Integer = 0 to lblDestinations.Length - 1
        lblDestinations(i).Text = "My Label " & i.ToString()
        AddHandler lblDestinations(i).Click, AddressOf LabelClick
    Next
End Sub

<br />
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _<br />
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _<br />
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)>  _<br />
        Public Overloads Overridable Function GetCustomerDetailsCustomerDetailID(ByVal dataTable As CustomerDetail.CustomerDetailsDataTable, ByVal CustomerDetailID As Global.System.Nullable(Of Integer)) As Integer<br />
            Me.Adapter.SelectCommand = Me.CommandCollection(1)<br />
            If (CustomerDetailID.HasValue = true) Then<br />
                Me.Adapter.SelectCommand.Parameters(1).Value = CType(CustomerDetailID.Value,Integer)<br />
            Else<br />
                Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value<br />
            End If<br />
            If (Me.ClearBeforeFill = true) Then<br />
                dataTable.Clear<br />
            End If<br />
            Dim returnValue As Integer = Me.Adapter.Fill(dataTable)<br />
            Return returnValue<br />
        End Function

Christian Graus wrote:

What possible reason could you have to do that ?

Imports System
Imports System.Text
Imports System.IO

module CSVReader
   public Sub Main()
      Dim theFile As String = "C:\PlayPen\TheData.txt"
      Dim rdr As StreamReader = new StreamReader(theFile)
      Using (rdr)
         Dim theKey As String = ""
         Dim input As String
         Dim recType As String
         
         while (rdr.Peek >= 0)
            input = rdr.ReadLine()       'Should check that not a blank line
            Dim recArray As String()     'if there is one then following fails
            recArray = input.Split(",")
            recType = recArray(0)
            Select Case(recType)
               case "11":
                  theKey = recArray(1)   'Need to change this to get type 11 key
                  Process11(input)
               case "12":
                  Process12(theKey, input)
               case "13":
                  Process13(theKey, input)
               case "14":
                  Process14(theKey, input)
               case else
                  Console.WriteLine("Oops: {0}", input)
            End Select
         End While
      End Using
   End Sub

   private Sub Process11(rec As String)
      Console.WriteLine("Proc11 {0}",rec)
   End Sub

   private Sub Process12(key11 As String, rec As String)
      Console.WriteLine("Proc12 key = {0}: {1}", key11, rec)
   End Sub

   private Sub Process13(key11 As String, rec As String)
      Console.WriteLine("Proc13 key = {0}: {1}", key11, rec)
   End Sub

   private Sub Process14(key11 As String, rec As String)
      Console.WriteLine("Proc14 key = {0}: {1}", key11, rec)
   End Sub
End Module