[Codaholic]

Hello guys, i have a slight problem Am getting the error: InvalidCast Exception was unhandled when trying to execute the code below

    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.Text = Mid(patientID, 1, 4)
            mdiChildTBScreeningFrm.txtPID1.Enabled = False
            mdiChildTBScreeningFrm.txtPID2.Text = Mid(patientID, 6, 5)
            mdiChildTBScreeningFrm.txtPID2.Enabled = False
            mdiChildTBScreeningFrm.txtPID3.Text = Mid(patientID, 12, 1)
            mdiChildTBScreeningFrm.txtPID3.Enabled = False
            mdiChildTBScreeningFrm.datePickerDOB.DataBindings.Add("Text", objDataView, "dateOfBirth")
            mdiChildTBScreeningFrm.datePickerDOB.Enabled = False
            'mdiChildTBScreeningFrm.cboStudyPhase.DataBindings.Add("Text", objDataView, IIf("studyPhase" = 1, "SOC", "Intervention"))
            mdiChildTBScreeningFrm.cboStudyPhase.Enabled = False
            mdiChildTBScreeningFrm.cboPersonFillingOutFrm.DataBindings.Add("Text", objDataView, "persFillingOutFrm")
            mdiChildTBScreeningFrm.cboPersonFillingOutFrm.Enabled = False
            'mdiChildTBScreeningFrm.cboStudyVisit.DataBindings.Add("Text", objDataView, IIf("studyVisit" = 1, "Enrollment", "Re-Screening"))
            mdiChildTBScreeningFrm.cboStudyVisit.Enabled = False
            Call CloseConnectionToDb()
        Else
        End If
    End Sub

Please do not be concerned with connection to the db e.t.c just try to figure out what am doing wrong in the 2 code lines with comments.

[CharlieMay]

It would appear that you're trying to cast a string to a numeric type

IIf("studyVisit" = 1 ???

Perhaps that should be
IIF(studyVisit = 1


But that's only a guess, because I have no idea what studyVisit even represents here.

This post has been edited by CharlieMay: 08 October 2012 - 08:30 AM

[Codaholic]

Hey Charlie, sorry for the late response. studyVisit is a column in the database of datatype number.

[CharlieMay]

OK, so You're going to have to specify that as IIF doesn't know that "studyVisit" is anything more than a string because, in this context it actually is just a string.

If you wanted to see what your studyVisit contained how would you go about writing it? For example, if you wanted to display that value in a MessageBox.

What I'm trying to push you toward is that you will need to use this same method in order to compare the columns contents in your IIF statement.

[lucky3]

Try a simple test, and use If(... instead of IIF(... in those 2 commented lines of code.

[Codaholic]

CharlieMay, on 09 October 2012 - 04:09 AM, said:

OK, so You're going to have to specify that as IIF doesn't know that "studyVisit" is anything more than a string because, in this context it actually is just a string.

If you wanted to see what your studyVisit contained how would you go about writing it? For example, if you wanted to display that value in a MessageBox.

What I'm trying to push you toward is that you will need to use this same method in order to compare the columns contents in your IIF statement.

[Codaholic]

Hey Charli, how can compare the column contents of the study visit column using IIF method?