Private Sub NavigateRecords() txttransactionnumber.Text = ds.Tables("tblaccounts").Rows(inc).Item(0) txtdate.Text = ds.Tables("tblaccounts").Rows(inc).Item(1) txtamount.Text = ds.Tables("tblaccounts").Rows(inc).Item(2) txtaccounttitle.Text = ds.Tables("tblaccounts").Rows(inc).Item(3) txtnormalbalance.Text = ds.Tables("tblaccounts").Rows(inc).Item(4) txtdescription.Text = ds.Tables("tblaccounts").Rows(inc).Item(5) txtfinancialstatement.Text = ds.Tables("tblaccounts").Rows(inc).Item(6) txtcompanyname.Text = ds.Tables("tblaccounts").Rows(inc).Item(7) txtcareof.Text = ds.Tables("tblaccounts").Rows(inc).Item(8) txtduedate.Text = ds.Tables("tblaccounts").Rows(inc).Item(9) End Sub
DBNull
If Not DbNull.Value.Equals(ds.Tables("tblaccounts").Rows(inc).Item(0)) Then Return ds.Tables("tblaccounts").Rows(inc).Item(0) Else Return Nothing End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)