ali.m.a
یک شنبه 30 تیر 1392, 14:20 عصر
با سلام خدمت اساتید محترم
مشکل کد زیر چی هست که خطای (Object reference not set to an instance of an object.) رو میده؟؟
پیشاپیش از راهنمائیتون ممنونم ...
Private Sub BtnRegMem_Click(sender As Object, e As EventArgs) Handles BtnRegMem.Click
Try
Dim Dt As DataTable = AccountDs.Tables("Tbl_BankData")
Dim NewRow As DataRow = AccountDs.Tables("Tbl_BankData").NewRow
NewRow("PerNO") = txtPerNo.Text
NewRow("TopicsCode") = "101"
NewRow("SpecificCode") = "1011"
NewRow("HesabType") = txtHesabType.Text
NewRow("HesabNo") = txtHesabNo.Text
NewRow("txtHesabDate ") = txtHesabDate.Text
AccountDs.Tables("Tbl_BankData").Rows.Add(NewRow)
MsgInfo("ok")
Catch ex As Exception
MsgInfo(ex.Message)
End Try
End Sub
مشکل کد زیر چی هست که خطای (Object reference not set to an instance of an object.) رو میده؟؟
پیشاپیش از راهنمائیتون ممنونم ...
Private Sub BtnRegMem_Click(sender As Object, e As EventArgs) Handles BtnRegMem.Click
Try
Dim Dt As DataTable = AccountDs.Tables("Tbl_BankData")
Dim NewRow As DataRow = AccountDs.Tables("Tbl_BankData").NewRow
NewRow("PerNO") = txtPerNo.Text
NewRow("TopicsCode") = "101"
NewRow("SpecificCode") = "1011"
NewRow("HesabType") = txtHesabType.Text
NewRow("HesabNo") = txtHesabNo.Text
NewRow("txtHesabDate ") = txtHesabDate.Text
AccountDs.Tables("Tbl_BankData").Rows.Add(NewRow)
MsgInfo("ok")
Catch ex As Exception
MsgInfo(ex.Message)
End Try
End Sub