AlgorithmX
پنج شنبه 29 اردیبهشت 1390, 20: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
من این برنامه رو نوشتم ولی مثل این که یک خط از سورس هام اجرا نمی شه! چون وقتی اونو بالن می کنم اصلا برنامه به اون خط نمی رسه! اون خط هم برام خیلی مهمه چون قراره فایلی رو که باز کردم رو ببنده!
( اون قسمت که ستاره دار کردم اجرا منی شه!!!!!!
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