helal92
یک شنبه 10 بهمن 1389, 10:51 صبح
سلام دوستان... ميتونيد بگيد مشكل اين تيكه كد من چيه؟
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 ميده
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 ميده