dotNETportal.cz

Dobrý den, v mojí aplikaci mám výstup z datagridviewu do dokumentu MS Word. Problém nastane, když mám prázdné pole v datagridviewu a import tabulky do dokumentu nenastane.

Neporadil by mi prosím někdo, jak nastavím datagridview, aby povoloval prázdné pole.

Děkuji za odpověď

DataGridView přece povoluje nevyplněnou buňku, ne?

Máte problém v tom, co obecně "prázdná" buňka obsahuje? Ppodle formátu třeba 0 (Numeric) nebo "" (String) - myslím, že to je v DataGridView defaultní nastavení... Jistě musíte v nastavení vyhovět zdroji dat...

Vy chcete, aby v "prázdném poli" byla hodnota null? Nejsem moc znalý, pokud ale neporadí někdo, kdo umí, pak můžete zkusit:

    DataGridView1.DefaultCellStyle.NullValue = vbNull

Je to formátu string

Vlákno jste nazval "Povolení NULL". Chcete-li prázdnou hodnotu ve string, pak je to: "" a pokud jste neměnil výchozé nastavení, je DataGridView1.DefaultCellStyle.NullValue = "" {String}

Ale jistě jde i v kódu nastavit

  DataGridView1.DefaultCellStyle.NullValue = ""

Není problém spíš v tom, jak předáváte data do Wordu než v nastavení DataGridView?

Po nastavení

  DataGridView1.DefaultCellStyle.NullValue = vbNullString

je NullValue Nothing

Po nastavení

  DataGridView1.DefaultCellStyle.NullValue = vbNullChar

je NullValue String, ale " " - tedy mezera

Co očekává Word?

Data do wordu předávám takto:

 Me.Enabled = False
           
            Dim w As New Microsoft.Office.Interop.Word.Application()
            'otevřít dokument
            w.Documents.Open(IO.Path.Combine(Application.StartupPath, "Vypis_Sablona.doc")).Activate()

                'vygenerovat položky z datagridview do tabulky v dokumentu
                Dim suma As Double = 0
                For i As Integer = 0 To Form1.DataGridView1.Rows.Count - 2
                    With w.ActiveDocument.Tables(1).Rows.Add()               
                                          'vyplnit hodnoty buněk 
                        .Cells(1).Range.Text = Form1.DataGridView1.Rows(i).Cells(0).Value
                        .Cells(2).Range.Text = Form1.DataGridView1.Rows(i).Cells(1).Value
                        .Cells(3).Range.Text = Form1.DataGridView1.Rows(i).Cells(2).Value
                        .Cells(4).Range.Text = Form1.DataGridView1.Rows(i).Cells(3).Value
                        .Cells(5).Range.Text = Form1.DataGridView1.Rows(i).Cells(4).Value

                     

    End With
Next

Přesné znění chybové hlášky: "Conversion from type 'DBNull' to type 'String' is not valid."

Zkoušel jsem nastavit vlastnost DefaultCellStyle.NullValue, podle vašich rad, ale problém pořád přetrvává.

Kde se v DataGridView bere DBNul - zřejmě při plnění daty. Nastavení před plněním tomu nezabrání a po naplnění obsah buňky nezmění. Je to spíš cesta k vyvolání chyb. Zkusil bych tedy DBNul v buňkách přepsat na "" a teprve pak plnit do Wordu - příklad

   If IsDBNull(Form1.DataGridView1.Rows(i).Cells(0).Value) Then _
      Form1.DataGridView1.Rows(i).Cells(0).Value = ""

Řídil jsem se podle vaší rady:

 Me.Enabled = False
           
            Dim w As New Microsoft.Office.Interop.Word.Application()
            'otevřít dokument
            w.Documents.Open(IO.Path.Combine(Application.StartupPath, "Vypis_Sablona.doc")).Activate()

                'vygenerovat položky z datagridview do tabulky v dokumentu
                Dim suma As Double = 0
                For i As Integer = 0 To Form1.DataGridView1.Rows.Count - 2
                    With w.ActiveDocument.Tables(1).Rows.Add() 
 'pokud jsou hodnoty v buňkách rovny DBNULL, přepsat je na ""
                        If IsDBNull(Form1.PříjmyDataGridView.Rows(i).Cells(0).Value) Then
                            Form1.PříjmyDataGridView.Rows(i).Cells(0).Value = ""
                        ElseIf IsDBNull(Form1.PříjmyDataGridView.Rows(i).Cells(1).Value) Then
                            Form1.PříjmyDataGridView.Rows(i).Cells(1).Value = ""
                        ElseIf IsDBNull(Form1.DataGridView1.Rows(i).Cells(2).Value) Then
                            Form1.DataGridView1.Rows(i).Cells(2).Value = ""
                        ElseIf IsDBNull(Form1.PříjmyDataGridView.Rows(i).Cells(3).Value) Then
                            Form1.DataGridView1.Rows(i).Cells(3).Value = ""
                        ElseIf IsDBNull(Form1.DataGridView1.Rows(i).Cells(4).Value) Then
                            Form1.DataGridView1.Rows(i).Cells(4).Value = ""
                        End If              
                                          'vyplnit hodnoty buněk 
                        .Cells(1).Range.Text = Form1.DataGridView1.Rows(i).Cells(0).Value
                        .Cells(2).Range.Text = Form1.DataGridView1.Rows(i).Cells(1).Value
                        .Cells(3).Range.Text = Form1.DataGridView1.Rows(i).Cells(2).Value
                        .Cells(4).Range.Text = Form1.DataGridView1.Rows(i).Cells(3).Value
                        .Cells(5).Range.Text = Form1.DataGridView1.Rows(i).Cells(4).Value

                    

    End With
Next
 

Ale pořád to nefunguje. Pořád to hází hlášku "Convention from type DBNull to type String is not valid.