Member 13341316 Ответов: 1

Пожалуйста, помогите мне с этой ошибкой ссылка на не общий член требует Ссылки на объект

Private Sub Admissionrecord_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	'TODO: This line of code loads data into the 'ButhdatabaseDataSet.Admission' table. You can move, or remove it, as needed.
	OpenConnection()
	Dim da As OleDbDataAdapter
	Dim dt As DataTable
	da = New OleDbDataAdapter("SELECT Hospital No,Patient's Name,Date Attended,Reffered By,Consultant,Ward,Date Discharged,Discharged To,Condition On Discharge,Discharge Summary FROM Admission", Connection)
	dt = New DataTable
	da.Fill(dt)
	AdmissionDataGridView.DataSource = dt
	AdmissionDataGridView.Refresh()
	Connection.Close()
	da.Dispose()

	SaveFileDialog.FileName = ""
	SaveFileDialog.Filter = "PDF (*.pdf) |*.pdf"

	Me.AdmissionTableAdapter.Fill(Me.ButhdatabaseDataSet.Admission)

End Sub


Что я уже пробовал:

я пытался добавить ссылку на свой проект, но все же это все то же самое, пожалуйста, помогите мне

Graeme_Grant

"ошибка ссылки на не общий член"

- Куда? какая линия?

Richard MacCutchan

У вас есть звонок, чтобы Connection.Close() но я не вижу никакого заявления о том, что Connection.

1 Ответов

Рейтинг:
0

OriginalGriff

SaveFileDialog-это класс: чтобы использовать его, вам нужно создать экземпляр класса, вы не можете просто попытаться получить доступ к необщим свойствам:

SaveFileDialog.FileName = ""
SaveFileDialog.Filter = "PDF (*.pdf) |*.pdf"
Вам нужно - где-то, вы не используете его в этом методе, поэтому не очевидно, что вы с ним делаете-создать экземпляр класса, чтобы вы могли его отобразить:
Dim mySaveFileDialog as SaveFileDialog = New SaveFileDialog