Visual Basic

Dim dr As DataRow, drNew as DataRow
Dim dt As DataTable = objDataSet.Tables(0)
Dim dt2 As New DataTable

dt2.Columns.Add("IC Roll")
dt2.Columns.Add("F2")
dt2.Columns.Add("F3")

For Each dr In dt.Rows
   For i As Integer = 0 To dt.Columns.Count - 1
      If dr(i).ToString = TextBox1.Text Then
         drNew = dt2.NewRow
         drNew(0) = dr(0)
         drNew(1) = dr(1)
         drNew(2) = dr(2)

         dt2.Rows.Add(drNew)
         drNew = Nothing
         Exit For
      End If
   Next
Next

DataGrid2.DataSource = dt2

Dim dr As DataRow
Dim dt As New DataTable

dt = objDataSet.Tables(0)

Dim dt2 As New DataTable
dt2.Columns.Add("IC Roll")
dt2.Columns.Add("F2")
dt2.Columns.Add("F3")

For Each dr In dt.Rows
 For i As Integer = 0 To dt.Columns.Count - 1
 
  If dr(i).ToString = TextBox1.Text Then
    Dim arData() As Object = {dr(0), dr(1), dr(2)} 
    dt2.Rows.Add(arData)
    Exit For
  End If
 Next
Next
dt2.AcceptChanges()
DataGrid2.DataSource = dt2

KrisnNala wrote:

If CurrentDate <> ReminderDate

Luc Pattyn [Forum Guidelines] [My Articles]

---

Voting for dummies? No thanks.

---

KrisnNala wrote:

ReminderDate = DateAdd(DateInterval.Month, 1, InvoiceDate)
If dr("Cleared") Is System.Convert.DBNull And ReminderDate = DateAdd(DateInterval.Month, 1, InvoiceDate) Then

KrisnNala wrote:

If CurrentDate <> ReminderDate Then
Else

KrisnNala wrote:

InvoiceDate = Me.DachelDataSet.Invoices.Rows(Me.InvoicesBindingSource.Position).Item("InvoiceDate")