مشكل 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 Function

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

[parselearn]

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

[helal92]

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

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

[ali_najari]

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

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


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