Ссылка на объект не задана и экземпляр объекта
это мой код для отображения данных на экране во время загрузки формы.
SqlQuery = "Select * from Ledgers" Sqlcommand = New MySqlCommand(SqlQuery, Conn) count = Sqlcommand.ExecuteScalar Da.SelectCommand = Sqlcommand Da.Fill(Ds, "LEDG") CmbFind.DataSource = Ds.Tables("LEDG") CmbFind.ValueMember = "Name" CmbFind.DisplayMember = "Name" Rc = Ds.Tables("LEDG").Rows.Count Rc = Rc - 1 TxtName.Text = Ds.Tables("LEDG").Rows(Rc)("Name") CmbGrp.Text = Ds.Tables("LEDG").Rows(Rc)("Grp") TxtAdd1.Text = Ds.Tables("LEDG").Rows(Rc)("Add1") TxtAdd2.Text = Ds.Tables("LEDG").Rows(Rc)("Add2") CmbCity.Text = Ds.Tables("LEDG").Rows(Rc)("City") TxtDist.Text = Ds.Tables("LEDG").Rows(Rc)("Dist") TxtPIN.Text = Ds.Tables("LEDG").Rows(Rc)("pincode") DBState.Text = Ds.Tables("LEDG").Rows(Rc)("state") TxtEmail.Text = Ds.Tables("LEDG").Rows(Rc)("email") TxtPhone.Text = Ds.Tables("LEDG").Rows(Rc)("Landline") TxtMob.Text = Ds.Tables("LEDG").Rows(Rc)("Mobile") TxtVAT.Text = Ds.Tables("LEDG").Rows(Rc)("VATNO") TxtCST.Text = Ds.Tables("LEDG").Rows(Rc)("CSTNO") TxtGST.Text = Ds.Tables("LEDG").Rows(Rc)("GSTNO") TxtPAN.Text = Ds.Tables("LEDG").Rows(Rc)("PAN") If Not IsDBNull(Ds.Tables("LEDG").Rows(Rc)("OpBal")) Then TxtOpBal.Text = Ds.Tables("LEDG").Rows(Rc)("OpBal") End If If Not IsDBNull(Ds.Tables("LEDG").Rows(Rc)("BalType")) Then DbcDrCr.Text = Ds.Tables("LEDG").Rows(Rc)("BalType") End If Da.Dispose()
он работает нормально, если я запускаю его непосредственно во время загрузки формы, но если я создаю функцию как
Public Sub fieldDisp() Try SqlQuery = "Select * from Ledgers" Sqlcommand = New MySqlCommand(SqlQuery, Conn) count = Sqlcommand.ExecuteScalar Da.SelectCommand = Sqlcommand Da.Fill(Ds, "LEDG") FrmAccMast.CmbFind.DataSource = Ds.Tables("LEDG") FrmAccMast.CmbFind.ValueMember = "Name" FrmAccMast.CmbFind.DisplayMember = "Name" Rc = Ds.Tables("LEDG").Rows.Count Rc = Rc - 2 FrmAccMast.TxtName.Text = Ds.Tables("LEDG").Rows(Rc)("Name") FrmAccMast.CmbGrp.Text = Ds.Tables("LEDG").Rows(Rc)("Grp") FrmAccMast.TxtAdd1.Text = Ds.Tables("LEDG").Rows(Rc)("Add1") FrmAccMast.TxtAdd2.Text = Ds.Tables("LEDG").Rows(Rc)("Add2") FrmAccMast.CmbCity.Text = Ds.Tables("LEDG").Rows(Rc)("City") FrmAccMast.TxtDist.Text = Ds.Tables("LEDG").Rows(Rc)("Dist") FrmAccMast.TxtPIN.Text = Ds.Tables("LEDG").Rows(Rc)("pincode") FrmAccMast.DBState.Text = Ds.Tables("LEDG").Rows(Rc)("state") FrmAccMast.TxtEmail.Text = Ds.Tables("LEDG").Rows(Rc)("email") FrmAccMast.TxtPhone.Text = Ds.Tables("LEDG").Rows(Rc)("Landline") FrmAccMast.TxtMob.Text = Ds.Tables("LEDG").Rows(Rc)("Mobile") FrmAccMast.TxtVAT.Text = Ds.Tables("LEDG").Rows(Rc)("VATNO") FrmAccMast.TxtCST.Text = Ds.Tables("LEDG").Rows(Rc)("CSTNO") FrmAccMast.TxtGST.Text = Ds.Tables("LEDG").Rows(Rc)("GSTNO") FrmAccMast.TxtPAN.Text = Ds.Tables("LEDG").Rows(Rc)("PAN") FrmAccMast.TxtOpBal.Text = Ds.Tables("LEDG").Rows(Rc)("OpBal") FrmAccMast.DbcDrCr.Text = Ds.Tables("LEDG").Rows(Rc)("BalType") Da.Dispose() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub
и вызовите эту функцию во время загрузки формы по
FieldDisp()
он возвращает сообщение об ошибке
ССЫЛКА НА ОБЪЕКТ НЕ ЗАДАНА И ЭКЗЕМПЛЯР ОБЪЕКТА.
пожалуйста помочь.
Что я уже пробовал:
Новичок в программировании ,поэтому ничего особенного не пробовал.
Richard Deeming
Вы пытаетесь вызвать функцию из формы Load
событие? Или вы пытаетесь вызвать его из конструктора?
Если вы пытаетесь вызвать его из конструктора, то вам нужно убедиться, что вы вызываете его InitializeComponent()
первый. Это метод, который создает все элементы управления в вашей форме.