VB.Net学习笔记（七）

1、 DataGridView1中添加合计行

可在DataGridView1链接的数据源的表中添加新行，其中插入合计数量等信息，如：

Dim dt AsNew Data.DataSet

da.Fill(dt, "p_1")

Dim dr As DataRow

dr = dt.Tables(0).NewRow

dr(0) = "合计数量"

dr("库存") = 0

dt.Tables(0).Rows.Add(dr)

2、 DataGridView导出Excell表格

    PrivateFunction ExportXLsD(ByVal DGV As DataGridView, ByVal FileName AsString) AsBoolean

        If DGV IsNothingThen

            ReturnFalse

        EndIf

        If DGV.Rows.Count > 0 Then

            If FileName.ToLower.EndsWith(".xls") Then

                Dim FS As FileStream = New FileStream(FileName, FileMode.Create)

                Dim sw As StreamWriter = New StreamWriter(FS, System.Text.Encoding.Default)

                'sw.WriteLine(vbTab & FileName & vbTab & Date.Now)

                Dim i, j AsInteger

                Dim str AsString = ""

                For i = 0 To DGV.Columns.Count - 1

                    If DGV.Columns(i).Visible Then

                        str = DGV.Columns(i).HeaderText

                        sw.Write(str & vbTab)

                    EndIf

                Next

                sw.Write(vbCrLf)

                For j = 0 To DGV.Rows.Count - 1

                    For i = 0 To DGV.Columns.Count - 1

                        If DGV.Columns(i).Visible Then

                            Dim strRow AsString

                            strRow = Trim(IIf(DGV(i, j).Value Is DBNull.Value, "", DGV(i, j).Value))

                            sw.Write(strRow & vbTab)

                        EndIf

                    Next

                    sw.Write(vbLf)

                Next

                sw.Close()

                FS.Close()

                ReturnTrue

            Else

                ReturnFalse

            EndIf

        Else

            ReturnFalse

        EndIf

    EndFunction