Parameter name: dataMember, on the second last line i.e mdiChildTBScreeningFrm.txtPID1.DataBindings.Add("Text", objDataView, Mid("patientID", 1, 4))
Private Sub BindHeaderControls()
sqlString = "SELECT COUNT (*) AS numRows FROM tblEnrollment WHERE patientID='" & patientID & "'"
Call ExecuteProcedures1()
If queryResult > 0 Then
Call OpenConnectionToDb()
Dim objDataAdapter As New OleDbDataAdapter("SELECT * FROM tblEnrollment WHERE patientID='" & patientID & "'", objConnection)
Dim objDataSet As DataSet
Dim objDataView As DataView
objDataSet = New DataSet
objDataAdapter.Fill(objDataSet, "tblEnrollment")
objDataView = New DataView(objDataSet.Tables("tblEnrollment"))
mdiChildTBScreeningFrm.datePickerTodaysDate.DataBindings.Add("Text", objDataView, "todaysDate")
mdiChildTBScreeningFrm.datePickerTodaysDate.Enabled = False
mdiChildTBScreeningFrm.txtPID1.DataBindings.Add("Text", objDataView, Mid("patientID", 1, 4))
Call CloseConnectionToDb()
Else
End If
End Sub

New Topic/Question
Reply



MultiQuote


|