19-03-24, 07:12 PM
السلام عليكم
كل عام وانتم جميعا بخير
لدي دالة تقوم براجع القيمة True Or False
لكن انا اريد ارجاع القيمة 0 او 1
لكن عند تحقق القيمة 1 بترجع -1
اريد القيم ترجع 1
مرفق الكود
كل عام وانتم جميعا بخير
لدي دالة تقوم براجع القيمة 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 Function