سوال: چرا VS این خط از برنامه رو اجرا نمی کنه ؟؟؟؟ [بایگانی]

AlgorithmX

پنج شنبه 29 اردیبهشت 1390, 19:51 عصر

سلام دوستان!

من این برنامه رو نوشتم ولی مثل این که یک خط از سورس هام اجرا نمی شه! چون وقتی اونو بالن می کنم اصلا برنامه به اون خط نمی رسه! اون خط هم برام خیلی مهمه چون قراره فایلی رو که باز کردم رو ببنده!
( اون قسمت که ستاره دار کردم اجرا منی شه!!!!!!

Public Class EditData
Dim n1, n2, n3 As String

Private Sub EditData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.Columns.Add("c1", "Name")
DataGridView1.Columns.Item("c1").Width = 115
DataGridView1.Columns.Add("c2", "Type")
DataGridView1.Columns.Item("c2").Width = 150
DataGridView1.Columns.Add("c3", "Address")
DataGridView1.Columns.Item("c3").Width = 400
If System.IO.File.Exists("h:\Data Base.txt") = True Then
FileOpen(1, My.Application.Info.DirectoryPath & "Data Base.db", OpenMode.Input)
Do While EOF(1) = False
Input(1, n1)
Input(1, n2)
Input(1, n3)
DataGridView1.Rows.Add(n1, n2, n3)
Loop
FileClose(1) ******
Else
MsgBox("Program Can't Find Any Data!", MsgBoxStyle.Information, "Not Found!")
End If
End Sub
End Class

saeid.memfis

پنج شنبه 29 اردیبهشت 1390, 23:26 عصر

سلام دوستان!

من این برنامه رو نوشتم ولی مثل این که یک خط از سورس هام اجرا نمی شه! چون وقتی اونو بالن می کنم اصلا برنامه به اون خط نمی رسه! اون خط هم برام خیلی مهمه چون قراره فایلی رو که باز کردم رو ببنده!
( اون قسمت که ستاره دار کردم اجرا منی شه!!!!!!

Public Class EditData
Dim n1, n2, n3 As String

Private Sub EditData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.Columns.Add("c1", "Name")
DataGridView1.Columns.Item("c1").Width = 115
DataGridView1.Columns.Add("c2", "Type")
DataGridView1.Columns.Item("c2").Width = 150
DataGridView1.Columns.Add("c3", "Address")
DataGridView1.Columns.Item("c3").Width = 400
If System.IO.File.Exists("h:\Data Base.txt") = True Then
FileOpen(1, My.Application.Info.DirectoryPath & "Data Base.db", OpenMode.Input)
Do While EOF(1) = False
Input(1, n1)
Input(1, n2)
Input(1, n3)
DataGridView1.Rows.Add(n1, n2, n3)
Loop
FileClose(1) ******
Else
MsgBox("Program Can't Find Any Data!", MsgBoxStyle.Information, "Not Found!")
End If
End Sub
End Class

سلام.یا if اجرا نمیشه یا اگه اجرا میشه حلقه while تموم نمیشه و توی لوپ میفته
اساسا تنها راهه فهمیدنش استفاده از break point است

AlgorithmX

شنبه 07 خرداد 1390, 17:43 عصر

سلام.یا if اجرا نمیشه یا اگه اجرا میشه حلقه while تموم نمیشه و توی لوپ میفته
اساسا تنها راهه فهمیدنش استفاده از break point است

دادش حلقه کامل اجرا میشه چون کل محتویات متن داخل دیتا گرید وارد میشه اما اون خطی که جلوش ستاره داره اجرا نمیشه چون در جای دیگر از برنامه که میخوام فایل رو مجدد باز کنم
بهم اخطار مبده که فایل باز است . از break point هم که استفاده میکنم به اون خط از برنامه نمیرسه !!!!!!!
دی: !!!!!!!!!!!!

مرتضی تقدمی

دوشنبه 09 خرداد 1390, 17:51 عصر

سلام
ممکن نیست این اتفاق بیافته! اگه if اجرا شه اون خط هم حتما باید اجرا بشه.

AlgorithmX

جمعه 27 خرداد 1390, 13:17 عصر

سلام
ممکن نیست این اتفاق بیافته! اگه if اجرا شه اون خط هم حتما باید اجرا بشه.

دادش میگم براش بالن گذاشتم ولی اصلا به اون خط نمیرسه!! و اجراش نمی کنه!!

saeid.memfis

جمعه 27 خرداد 1390, 18:00 عصر

سلام
بعضب اوقات تو vs یه مشکلی پیش میاد که تغییرات اجرا شده را در زمان اجرا نمایش نمیده و مثل قبل عمل می کنه...که یک راه حلش اینه فلدر bin رو پاک کنی و برنامه رو دوباره ران کنی
یک تست بکن شاید درست شد

koorosh-soft

جمعه 27 خرداد 1390, 23:58 عصر

به نظرم اگر از تابع freefile استفاده کنی خیلی امن تر هست تا عدد ثابت