[dubai.eig]

السلام عليكم ورحمة الله

عندي كود وحاب اتاكد من كتابته

عندي ارقام تبدا من 
7000.0
لغاية
7300.0

اريد اميز بين رقمين كمثال

كود :

if sa2bandmode >= 7000 AndAlso sa2bandmode < 7070 Then    MsgBox("1")

if sa2bandmode >= 70000 AndAlso sa2bandmode < 70700 Then    MsgBox("2")

if sa2bandmode >= 7070 AndAlso sa2bandmode < 7300 Then    MsgBox("3")

if sa2bandmode >= 70700 AndAlso sa2bandmode < 73000 Then    MsgBox("4")

هل الطريقه صحيح

يعني اذا صادفك رقم  7030  يطلع لك مسج بوكس  MsgBox("1")

وهكذا

والمشكله الثانيه الي صادفتني

في بعض الاجهزه يقراء الرقم  كذا 7070  وبعذ الاجهزه يقراء الرقم كذا  70700

وانجبرت  اكرر الكود مع اختلاف الارقام 


وهل هذه الطريقه صحيحه

كود :

 If Settings.m80cw = "Y" OrElse sa2bandmode >= 7070 AndAlso sa2bandmode < 7300 AndAlso sa2bandmode >= 70700 AndAlso sa2bandmode < 73000 Then

وهنا الاستعلام كامل

كود :

 Dim cmd3 As New SQLiteCommand(String.Format("SELECT * FROM DB{0} WHERE country = @country", Stadd), conn1)
                   cmd3.Parameters.AddWithValue("CALLop", sa3callswork)
                   cmd3.Parameters.AddWithValue("country", country.Text)
                   Dim rowCount3 As Integer = Convert.ToInt32(cmd3.ExecuteScalar())
                   If rowCount3 <> 0 Then

                   Else
                       If sa2bandmode >= 36200 AndAlso sa2bandmode < 39000 Then DataGridView1.Rows.Add(a1, a2, a3, a4, timk, country.Text, MO4, My.Resources.NewCountry)

                       If sa2bandmode >= 3620 AndAlso sa2bandmode < 3900 Then DataGridView1.Rows.Add(a1, a2, a3, a4, timk, country.Text, MO4, My.Resources.NewCountry)

                   End If
               End If

افيدوني بارك الله فيكم