Reply to thread

Message

<blockquote data-quote="cpopham" data-source="post: 107" data-attributes="member: 42">am writing an application where my user makes a selection with a combo box and then it pulls up the appropriate information for the selection.&nbsp; If the user approves of the selection he clicks a button which adds the information to another dataset.Everything works fine except when the button is clicked to add the information to the dataset.&nbsp; I get the error Object reference not set to an instance of an object.Here should be the appropriate <a href="http://experts-exchange.com/Programming/Programming_Languages/Dot_Net/VB_DOT_NET/Q_21016507.html#">code</a>:This is the button to add the information to the dataset.&nbsp; The DataTier is a separate class for all of my data manipulation.&nbsp; &nbsp; Private Sub btnAddPO_Click(ByVal sender As Object, _ByVal e As System.EventArgs) _Handles btnAddPO.Click&nbsp; &nbsp; &nbsp; &nbsp; Dim ds As DataSet&nbsp; &nbsp; &nbsp; &nbsp; Dim strDate As Date = Today&nbsp; &nbsp; &nbsp; &nbsp; Dim strPO As String = mstrSelectedPO&nbsp; &nbsp; &nbsp; &nbsp; Dim strSpend As String = Me.lblSpend.Text&nbsp; &nbsp; &nbsp; &nbsp; Dim strVend As String = Me.lblVendor.Text&nbsp; &nbsp; &nbsp; &nbsp; Dim strBuy As String = Me.lblBuyer.Text&nbsp; &nbsp; &nbsp; &nbsp; mobjDataTier = New DataTier&nbsp; &nbsp; &nbsp; &nbsp; ds = mobjDataTier.AddAGPO(strDate, strPO, strSpend, strVend, strBuy)&nbsp; &nbsp; &nbsp; &nbsp; Me.dgAGPOs.DataSource = ds&nbsp; &nbsp; &nbsp; &nbsp; Me.dgAGPOs.DataMember = &quot;AGPOInfo&quot;&nbsp; &nbsp; &nbsp; &nbsp; Me.dgAGPOs.Refresh()&nbsp; &nbsp; End SubThis is the code in my data class which is giving me the error:&nbsp; &nbsp; Public Function AddAGPO(ByVal strDate As String, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ByVal strPONum As String, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ByVal strSpend As String, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ByVal strVend As String, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ByVal strBuyer As String) _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As DataSet&nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If blnCreated = False Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsAGPOs = New DataSet&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; With dsAGPOs.Tables.Add(&quot;AGPO&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns.Add(&quot;ToAG&quot;, GetType(String))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns.Add(&quot;PONum&quot;, GetType(String))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns.Add(&quot;Vendor&quot;, GetType(String))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns.Add(&quot;Buyer&quot;, GetType(String))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End With&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; blnCreated = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim myRow As DataRow&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; myRow = dsAGPOs.Tables(&quot;AGPOInfo&quot;).NewRow ‘This is the row that is causing the error.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; myRow.Item(0) = strDate&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; myRow.Item(1) = strPONum&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; myRow.Item(2) = strSpend&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; myRow.Item(3) = strVend&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; myRow.Item(4) = strBuyer&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsAGPOs.Tables(&quot;AGPOInfo&quot;).Rows.Add(myRow)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return dsAGPOs&nbsp; &nbsp; &nbsp; &nbsp; Catch ex As Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MessageBox.Show(ex.Message)&nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; End FunctionAny Ideas?Chester</blockquote>

[QUOTE="cpopham, post: 107, member: 42"] am writing an application where my user makes a selection with a combo box and then it pulls up the appropriate information for the selection. If the user approves of the selection he clicks a button which adds the information to another dataset. Everything works fine except when the button is clicked to add the information to the dataset. I get the error Object reference not set to an instance of an object. Here should be the appropriate [url="http://experts-exchange.com/Programming/Programming_Languages/Dot_Net/VB_DOT_NET/Q_21016507.html#"]code[/url]: This is the button to add the information to the dataset. The DataTier is a separate class for all of my data manipulation. Private Sub btnAddPO_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) _ Handles btnAddPO.Click Dim ds As DataSet Dim strDate As Date = Today Dim strPO As String = mstrSelectedPO Dim strSpend As String = Me.lblSpend.Text Dim strVend As String = Me.lblVendor.Text Dim strBuy As String = Me.lblBuyer.Text mobjDataTier = New DataTier ds = mobjDataTier.AddAGPO(strDate, strPO, strSpend, strVend, strBuy) Me.dgAGPOs.DataSource = ds Me.dgAGPOs.DataMember = "AGPOInfo" Me.dgAGPOs.Refresh() End Sub This is the code in my data class which is giving me the error: Public Function AddAGPO(ByVal strDate As String, _ ByVal strPONum As String, _ ByVal strSpend As String, _ ByVal strVend As String, _ ByVal strBuyer As String) _ As DataSet Try If blnCreated = False Then dsAGPOs = New DataSet With dsAGPOs.Tables.Add("AGPO") .Columns.Add("ToAG", GetType(String)) .Columns.Add("PONum", GetType(String)) .Columns.Add("Vendor", GetType(String)) .Columns.Add("Buyer", GetType(String)) End With blnCreated = True End If Dim myRow As DataRow myRow = dsAGPOs.Tables("AGPOInfo").NewRow ‘This is the row that is causing the error. myRow.Item(0) = strDate myRow.Item(1) = strPONum myRow.Item(2) = strSpend myRow.Item(3) = strVend myRow.Item(4) = strBuyer dsAGPOs.Tables("AGPOInfo").Rows.Add(myRow) Return dsAGPOs Catch ex As Exception MessageBox.Show(ex.Message) End Try End Function Any Ideas? Chester [/QUOTE]

Verification