Data Transfer Problem

Sadi Serdari · July 2011

I'm happy you can be helpful to me, I wrote the following codes.
How can I fix the error Object reference not set to an instance of an object.

Â Â Â Â Private Sub PrntPvw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrntPvw.Click

Â Â Â Â Â Â Â Â ConNPos()

Â Â Â Â Â Â Â Â OLEAdp2 = New OleDbDataAdapter(SqlLst, OLEConN)
Â Â Â Â Â Â Â Â FrxDtSet = New DataSet With {.DataSetName = "MACIPAdress"}

Â Â Â Â Â Â Â Â OLEAdp2.Fill(FrxDtSet)

Â Â Â Â Â Â Â Â FReport = New Report

Â Â Â Â Â Â Â Â FReport.Load(RprtName)

Â Â Â Â Â Â Â Â FReport.RegisterData(FrxDtSet)

Â Â Â Â Â Â Â Â MstrDt = New FastReport.DataBand
Â Â Â Â Â Â Â Â TxtObj = New FastReport.TextObject

Â Â Â Â Â Â Â Â MstrDt = FReport.FindObject("DataTbl")
Â Â Â Â Â Â Â Â TxtObj = FReport.FindObject("Sample")

Â Â Â Â Â Â Â Â MstrDt.DataSource = FReport.GetDataSource("MACIPAdress")

Â Â Â Â Â Â Â Â For i As Integer = 0 To FrxDtSet.Tables(0).Rows.Count - 1

Â Â Â Â Â Â Â Â Â Â Â Â TxtObj.Text = FrxDtSet.Tables(0).Rows(0).Item(0)

Â Â Â Â Â Â Â Â Next

Â Â Â Â Â Â Â Â FReport.Show()
Â Â Â Â Â Â Â Â FReport.Dispose()

Â Â Â Â Â Â Â Â DisConnect()

Â Â Â Â End Sub

Sadi Serdari · July 2011

The list is wrong

the correct form of a list

codes are as follows:

Â Â Â Â Private Sub PrntPvw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrntPvw.Click

Â Â Â Â Â Â Â Â ConNPos()

Â Â Â Â Â Â Â Â OLEAdp2 = New OleDbDataAdapter(SqlLst, OLEConN)
Â Â Â Â Â Â Â Â FrxDtSet = New DataSet With {.DataSetName = "MACIPAdress"}

Â Â Â Â Â Â Â Â OLEAdp2.Fill(FrxDtSet)

Â Â Â Â Â Â Â Â FReport = New Report

Â Â Â Â Â Â Â Â FReport.Load(RprtName)

Â Â Â Â Â Â Â Â FReport.RegisterData(FrxDtSet)

Â Â Â Â Â Â Â Â AdSydObj = FReport.FindObject("AdSydTxt")
Â Â Â Â Â Â Â Â GrvObj = FReport.FindObject("GrvTxt")
Â Â Â Â Â Â Â Â BrmObj = FReport.FindObject("BrmTxt")
Â Â Â Â Â Â Â Â MAC1Obj = FReport.FindObject("MAC1Txt")
Â Â Â Â Â Â Â Â Net1Obj = FReport.FindObject("Net1Txt")
Â Â Â Â Â Â Â Â MAC2Obj = FReport.FindObject("MAC2Txt")
Â Â Â Â Â Â Â Â Net2Obj = FReport.FindObject("Net2Txt")
Â Â Â Â Â Â Â Â IPNoObj = FReport.FindObject("IPNoTxt")



Â Â Â Â Â Â Â Â For i As Integer = 0 To FrxDtSet.Tables(0).Rows.Count - 1

Â Â Â Â Â Â Â Â Â Â Â Â AdSydObj.Text = FrxDtSet.Tables(0).Rows(i).Item(0).ToString
Â Â Â Â Â Â Â Â Â Â Â Â GrvObj.Text = FrxDtSet.Tables(0).Rows(i).Item(1).ToString
Â Â Â Â Â Â Â Â Â Â Â Â BrmObj.Text = FrxDtSet.Tables(0).Rows(i).Item(2).ToString
Â Â Â Â Â Â Â Â Â Â Â Â MAC1Obj.Text = FrxDtSet.Tables(0).Rows(i).Item(3).ToString
Â Â Â Â Â Â Â Â Â Â Â Â Net1Obj.Text = FrxDtSet.Tables(0).Rows(i).Item(4).ToString
Â Â Â Â Â Â Â Â Â Â Â Â MAC2Obj.Text = FrxDtSet.Tables(0).Rows(i).Item(5).ToString
Â Â Â Â Â Â Â Â Â Â Â Â Net2Obj.Text = FrxDtSet.Tables(0).Rows(i).Item(6).ToString
Â Â Â Â Â Â Â Â Â Â Â Â IPNoObj.Text = FrxDtSet.Tables(0).Rows(i).Item(7).ToString

Â Â Â Â Â Â Â Â Â Â Â Â 'ListBox1.Items.Add(FrxDtSet.Tables(0).Rows(i).Item(0))

Â Â Â Â Â Â Â Â Next

Â Â Â Â Â Â Â Â FReport.Show()
Â Â Â Â Â Â Â Â FReport.Dispose()

Â Â Â Â Â Â Â Â DisConnect()

Â Â Â Â End Sub

Please help

Data Transfer Problem

Comments

Leave a Comment