04-09-15, 04:17 AM
لحظة
غير الشروط بهذا الكود من جملة if
If dt.Rows.Count = 0 Then
MsgBox("invalid user name or password")
End If
If dt.Rows(0)("status").ToString = "admin" Then
Form1.Show()
Form1.Tprint.Visible = True
ElseIf dt.Rows(0)("status") = "user" Then
Form1.Show()
End If
جرب الان
غير الشروط بهذا الكود من جملة if
If dt.Rows.Count = 0 Then
MsgBox("invalid user name or password")
End If
If dt.Rows(0)("status").ToString = "admin" Then
Form1.Show()
Form1.Tprint.Visible = True
ElseIf dt.Rows(0)("status") = "user" Then
Form1.Show()
End If
جرب الان
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات