DataGridView

[Dapsssss]

Добрый вечер. Есть DataDridView. Там пять столбцов и несколько строк!Потзователь открывает форму вводит в них свои слова и по кнопке заполнить каждая ячейка первой строки записывается в текстовик в строчку через запятую и так далее каждая строка на новой строчку в текстовике. Как Экспортировать текст из датагридвью в текстовик .txt ? Возможно ли это?

Пример: 1,Как меня зовут?,Роман,Иван,Дмитрий,Женя,
2,Откуда я?,Егорьевск,Москва,Коломна,ОреховоЗуево,

Где 1 - 1 ая сторока 1 столбец, Как меня зовут?, - 1-ая строка 2 столбец, Роман - 1ая строка 3 столбец и т.д.

Будьте добры помогите пожжалуйста... Прочитал пару книг про АДО.нет и просто про ДатаГридВью... ни слова о том как экспортировать из дата вью..

[arvitaly]

Прочитал пару книг про АДО.нет и просто про ДатаГридВью...

хм

[Денис]

Прочитал пару книг про АДО.нет и просто про ДатаГридВью...

хм

Да просто он начинал читать — картинок нет, ну он и брался за следущую. И так рекурсией, рекурсией, пока не понял, что он их прочитал. В общем, правый руль (см. соседний топик)

[Dapsssss]

=( Ну что вы все злые такие... Ничего в соседней ветке я не нашёл... Скажите хоть возможно сделать это? буду дальше искать......

[dub]

как вариант перебирать в цикле и записывать в файл

[Dmitry81]

цикл от 0 до количества строк в таблице -2 (т.к. будем иметь в конце таблицы пустую новую строку)
в него вложен цикл: от 0 до количества столбцов -1
в этом цикле в строковую переменную пишем через точку с запятой Value (адрес ячейки)
на каждом шаге наружного цикла в конец строковой переменной добавляем vbcrlf

По завершении всех циклов имеем текстовую переменную, в которой наша нужная инфа: строка1, ячейка1; строка1, ячейка n и так далее. Каждая новая строка в текстовой переменной содержит инфу о данной строке таблицы...

Ну а дальше - или в текстовый файл или в текстбокс.
Вот пример: на форме - датагридвью и кнопка.

Код: Выделить всё

Public Class Form1
    Dim Filestr As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'наполняем переменную
        Dim i, j As Integer
        For i = 0 To Me.DataGridView1.RowCount - 2
            For j = 0 To Me.DataGridView1.ColumnCount - 1
                If Me.DataGridView1.Item(j, i).Value Is Nothing = False Then
                    Me.Filestr = Me.Filestr & Me.DataGridView1.Item(j, i).Value.ToString
                Else
                    Me.Filestr = Me.Filestr & "empty"
                End If
                If j < Me.DataGridView1.ColumnCount - 1 Then Me.Filestr = Me.Filestr & "; "
            Next
            If i < Me.DataGridView1.RowCount - 1 Then Me.Filestr = Me.Filestr & vbCrLf
        Next
        'убеждаемся в заполненности переменной
        If MsgBox(Me.Filestr & vbCrLf & vbCrLf & "Сохранить в файл?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            'сохраняем в файл
            Dim sw As New System.IO.StreamWriter(My.Application.Info.DirectoryPath & "\test.txt")
            sw.Write(Me.Filestr)
            sw.Close()
            Process.Start(My.Application.Info.DirectoryPath & "\test.txt")
        Else
            MsgBox("Ну и ладно...")
            Me.Filestr = ""
        End If
    End Sub
End Class