[الماجيك مسعد]

اخى الغالى

شكرا لك معلش تعبتك معى

ولكنى لا استعمل قواعد البيانات

عموما انا لقيت حل فى موقع اخر

والحمدلله افاد بالغرض

هذا هو الكود

Dim y As Integer = 0
Dim strFile As String
Dim sw1 As StreamWriter
Do Until y = DataGridView1.RowCount - 1
Dim x As String = DataGridView1.Rows(y).Cells(1).Value
strFile = x & ".txt"
If (Not File.Exists(strFile)) Then
sw1 = File.CreateText(strFile)
sw1.WriteLine(DataGridView1.Rows(y).Cells(0).Value)
sw1.Close()
Else
sw1 = (File.AppendText(strFile))
sw1.WriteLine(DataGridView1.Rows(y).Cells(0).Value)
sw1.Close()
End If
y = y + 1
Loop


شكرا لكم جميعا

اتمنى اغلاق الموضوع للانتهاء