+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 (/showthread.php?tid=48094)
ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 - new_programer - 19-03-24
السلام عليكم
كل عام وانتم جميعا بخير
لدي دالة تقوم براجع القيمة True Or False
لكن انا اريد ارجاع القيمة 0 او 1
لكن عند تحقق القيمة 1 بترجع -1
اريد القيم ترجع 1
مرفق الكود
كود :
Public Function CheckPermiss(ByVal ColumnName As String, ByVal UserCodeID As Integer)
Dim NumberUSR As Integer 'Count_ID_UserPass(txt_username.Text, txt_pass.Text) If CheckPermiss("Frm_Save", mUserCode, "1") = 0 Then
'Dim NumberUSR As String
Try
Dim cmd As New SqlCommand("select " & ColumnName & " from UserPermissionsTbl where UserCodeID=@UserCodeID", conn)
cmd.Parameters.Add("@UserCodeID", SqlDbType.Int).Value = UserCodeID
If conn.State = ConnectionState.Closed Then conn.Open()
NumberUSR = cmd.ExecuteScalar
conn.Close()
Catch ex As Exception
NumberUSR = 0
conn.Close()
End Try
Return NumberUSR
End FunctionRE: ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 - atefkhalf2004 - 19-03-24
يمكنك وضع شرط اذا كان الناتج -1 يتم ضربه في -1 فيكون الناتج 1
if number=-1 then number=1
RE: ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 - Taha Okla - 20-03-24
وعليكم السلام ورحمة الله وبركاته
عدل الجزئية من الكود بالكود التالي :
كود :
NumberUSR = Math.Abs(cmd.ExecuteScalar)الأفضل أن تجعل برنامجك يقبل الافتراضيات التي بنت عليها مايكروسوفت
حيث أنها تعتبر أن
True = -1
و أن الـ
False = 0
RE: ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 - new_programer - 20-03-24
Taha Okla
تسلم استاذي الفاضل
RE: ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 - تركي الحلواني - 20-03-24
PHP كود :
Public Function CheckPermiss(ByVal ColumnName As String, ByVal UserCodeID As Integer) As Boolean
Try
Dim cmd As New SqlCommand("SELECT " & ColumnName & " FROM UserPermissionsTbl WHERE UserCodeID=@UserCodeID", conn)
cmd.Parameters.Add("@UserCodeID", SqlDbType.Int).Value = UserCodeID
If conn.State = ConnectionState.Closed Then conn.Open()
Dim result As Object = cmd.ExecuteScalar()
conn.Close()
If result IsNot Nothing AndAlso Not IsDBNull(result) Then
Return CBool(result)
End If
Catch ex As Exception
conn.Close()
Return False
End Try
End Function