Visual Basic

eg_Anubhava wrote:

Yes Please check

eg_Anubhava wrote:

I have a listbox in which have 20 items. But when i want to get number of items in Timer. But it displayed 0.

I are Troll

eg_Anubhava wrote:

Can any one explain it what is Flickers in vb.net. My friend suggest it Flickers is new concept of vb.net.

Dim aDataTable As DataTable<br />
Dim aDbDataAdapter As DbDataAdapter<br />
<br />
sqlCommand.CommandText = sql<br />
aDbDataAdapter.SelectCommand = sqlCommand<br />
aDbDataAdapter.Fill(aDataTable)<br />
aDbDataAdapter.FillSchema(aDataTable, SchemaType.Source)<br />
aDataTable.TableName = tableName

Private Delegate Sub SetNewDataRow(ByRef dt as DataTable, ByVal index As Integer, _
                         ByVal fno As Integer)

Private Sub SetNewRow(ByRef dt as DataTable, ByVal index As Integer, _
                         Optional ByVal fno As Integer = 0)
    ...

    If i < dt.Rows.Count - 1 Then

        If (Left(dt.Rows(i).Item(0).ToString, 4) <> Left(dt.Rows(i + 1).Item(0).ToString, 4)) Then

          nr = dt.NewRow
          nr.ItemArray = nra
          dt.Rows.InsertAt(nr, i + 1)

          Dim del As New delRowSumm(AddressOf SetNewDataRow)
          del(dt, i + 2, fno + 1)

        End If

      End If

    Next

    dt.Rows.Add(nra)

  End Sub

...

Dim fno As Integer = 0
Dim index as Integer = 0

While index <> -1

  index = SummRow(dt, index, fn)
  fno += 1

Loop

...

 Private Function SummRow(ByRef dt As DataTable, ByVal index As Integer, _
                             ByVal fno As Integer) As Integer

      Dim res As Integer = 0

      Dim arr() As Object = {"F" & (fno + 1).ToString & " Totals", _
                             0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

      For i As Integer = index To dt.Rows.Count - 1

        For j As Integer = 1 To dt.Columns.Count - 1
          If Not TypeOf dt.Rows(i).Item(j) Is DBNull Then
            arr(j) += CType(dt.Rows(i).ItemArray(j), Double)
          End If
        Next

        If i < dt.Rows.Count - 1 Then
          If (Left(dt.Rows(i).Item(0).ToString, 4) <> Left(dt.Rows(i + 1).Item(0).ToString, 4)) Then

            Dim nr As DataRow = dt.NewRow
            nr.ItemArray = arr
            dt.Rows.InsertAt(nr, i + 1)
            res = i + 2
            Exit For

          End If

        Else
          
          dt.Rows.Add(arr)
          res = -1
          Exit For
        End If

      Next

      Return res

    End Function

Private Function SummRow(ByRef dt As DataTable) As DataTable
 'EDIT - Oops - has a bug that causes runtime error
End Function

Private Function SummRow(ByRef dt As DataTable) As DataTable
   Dim tmp as DataTable = dt.Clone()

   Dim rowNum As Integer = 0
   Dim arr() As Object = {"", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
   Dim fNo As Integer = 0
   Dim column0 as String

   'Loop through the DataTable
   While rowNum < dt.Rows.Count
      'Set controls for next group of rows based on column0
      fNo += 1
      column0 = Left(dt.Rows(rowNum).Item(0).ToString, 4)
      arr(0) = "F"& fno.ToString & " Totals"

      'Loop through rows with same entry in column 0
      While (rowNum < dt.Rows.Count) AndAlso (column0 = Left(dt.Rows(rowNum).Item(0).ToString, 4))
         For colNum As Integer = 1 To dt.Columns.Count - 1
            If Not TypeOf dt.Rows(rowNum).Item(colNum) Is DBNull Then
               arr(colNum) += CType(dt.Rows(rowNum).ItemArray(colNum), Double)
            End If
         Next colNum
         tmp.Rows.Add(dt.Rows(rowNum)
         rowNum +=1
      End While

      'Add the running totals row on change of column0
      Dim newRow as DataRow = tmp.NewRow
      newRow.ItemArray = arr
      tmp.Add(newRow)
   End While

   Return tmp
End Function

ElseIf i = dt.Rows.Count - 1 Then
    Dim nr As DataRow = dt.NewRow
    nr.ItemArray = nra

    dt.Rows.Add(nr)

    Exit For ' Problem here - Routine does not exit.
    ' Instead, jumps to the 'Next' statement

End If

ElseIf i = dt.Rows.Count - 1 Then
    Dim nr As DataRow = dt.NewRow
    nr.ItemArray = nra

    dt.Rows.Add(nr)

    return dt
End If

public Int32 Level() {
  Int32 levelValue = 0;
  Node node = this;
  while (node.Parent != null) {
    levelValue = levelValue + 1;
    node = node.Parent;
  }
  return levelValue;
}

public Int32 Level() {
  if (this.Parent == null) {
    return 0;
  } else {
    return Level() + 1;
  }
}