29-11-16, 08:18 PM
PHP كود :
Dim sb As New System.Text.StringBuilder
For Each r As DataGridViewRow In DataGridView4.Rows
If r.Index = DataGridView4.Rows.Count - 1 Then Exit For
Dim q = From x As DataGridViewCell In r.Cells Select x.Value
sb.AppendLine(String.Join(",", q))
Next
IO.File.AppendAllText(My.Application.Info.DirectoryPath & "\logs.bk", sb.ToString)
