مشكل DBNull

[helal92]

سلام دوستان... ميتونيد بگيد مشكل اين تيكه كد من چيه؟

 Function Get_ISPatientRate(ByVal ReferralCo
de As String) As Boolean

        Dim Rw As DataRow

        Rw = ObjRemedialActivity.Get_ISPatientRate(ReferralCode  )

        If CStr(Rw("InsuranceCode")) = "116" Then

            Return True

        ElseIf Rw("InsuranceSupplementaryCode") Is DBNull.Value Then

            Return False

        ElseIf CStr(Rw("InsuranceSupplementaryCode")) = "116" Then

            Return True

        Else

            Return False

        End If

    End Func
tion

وقتي هر دو مقدار RW پر باشند error نميده ولي هنگامي كه يكي از اونها مثلا دومي Null باشه error ميده

[parselearn]

با تابع ISDBNull ميتوانيد از خالي بودن فيلد آگاه شويد

[helal92]

با تابع ISDBNull ميتوانيد از خالي بودن فيلد آگاه شويد

بله ميدونم، وقتي هر دوتا سطر پر باشند برنامه درست كار ميكنه اما وقتي دومي كه واسه خالي بودنش تستش كردم خالي باشه كار نميكنه و مقدار false بر ميگردونه... نميدونم چرا!!!

[ali_najari]

دوست عزيز شما چك كنيد كه آيا null هست يا خير:

مثلا براي فيلد InsuranceSupplementaryCode به روش زير عمل كنيد

DBNull.Value.Equals(Rw("InsuranceSupplementaryCode  "))