[dubai.eig]

(20-08-19, 12:28 AM)اسامه الهرماوي كتب :

(19-08-19, 10:46 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
ابحث عن تعريفات المتغيرات النصية (strıng) واسند لها قيم فارغة ولاتتركها (تعريف فقط) بدون قيمة  

وضع المتغيرات بين 
try
الكود
end try
لكي لا يحصل نفس الخطأ كمال قال الاستاذ ابراهيم.

\

قمت بتغيير اغلب الاكواد الى 

try

end try

كمثال

كود :

       Try
           TopMost = True
           Dim SavePath As String = String.Format("C:\settings\info{0}.s3db", strcallbk)
           If System.IO.File.Exists(SavePath) Then
               Dim dr As SQLiteDataReader
               Using cnn As New SQLiteConnection(String.Format("Data Source= C:\settings\info{0}.s3db", strcallbk))
                   Using cmdi As New SQLiteCommand(String.Format("SELECT * FROM info{0} ORDER BY id", strcallbk), cnn)
                       cnn.Open()
                       dr = cmdi.ExecuteReader()
                   End Using
                   Do While dr.Read()
                       CheckmmttyX = dr("Checkmmtty").ToString
                       CheckmmvariX = dr("Checkmmvari").ToString
                   Loop
               End Using
           End If

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

وان شاءالله ما تطلع لي المشكله المتعبه

شكرا لك استاذي اسامه