Web Listing B: Handling the TableNewRow Event

Partial Class CustomerDataSet
    Partial Class GetCustomersByStateDataTable
        Private Sub GetCustomersByStateDataTable_TableNewRow( _
              ByVal sender As Object, _
              ByVal e As System.Data.DataTableNewRowEventArgs) _
              Handles Me.TableNewRow
            Dim dr As GetCustomersByStateRow = e.Row
            Dim intR1, intR2 As Integer
            ' For testing, just insert random values
            intR1 = CInt(Int((98) * Rnd()))
            intR2 = CInt(Int((999999 * Rnd())))
            dr.TID = String.Format("{0}-{1}", intR1, intR2)
            dr.DateAdded = Now()
            dr.Discount = 0
            dr.Location = "TBD"
            Debug.Print(String.Format("New CustID:{0} TID:{1}", _
                dr.CustID, dr.TID))
        End Sub
    End Class
    Partial Class GetOrdersByCustomerDataTable
        Private Sub GetOrdersByCustomerDataTable_TableNewRow( _
              ByVal sender As Object, _
              ByVal e As System.Data.DataTableNewRowEventArgs) _
              Handles Me.TableNewRow
            Dim dr As GetOrdersByCustomerRow = e.Row
            dr.DateOrdered = Now()
        End Sub
    End Class