?'****************************************************************************
'人人為我，我為人人
'枕善居漢化收藏整理
'發布日期：2007/07/23
'描    述：網吧計費管理系統客戶端/服務器端
'網    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************

Public Class FrmFeeList
    'Dim FList As DataTable
    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        Dim TempDBUser As New ClsUser
        If Trim(TxtUserName.Text) = "" Then
            MsgBox("輸入的用戶名不能為空！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        TempDBUser.UserName = Trim(TxtUserName.Text)
        DGVResult.DataSource = TempDBUser.FeeList
        'FList = TempDBUser.FeeList
    End Sub







 
    Private Sub BtnWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnWord.Click
        '  Dim wordApp As New Word.Application
        '  Dim myDoc As Word.Document
        ' Dim oTable As Word.Table
        '  Dim rowIndex, colIndex As Integer
        ' rowIndex = 1
        ' colIndex = 0
        '  wordApp.Documents.Add()
        '  myDoc = wordApp.ActiveDocument
        '   Dim Table As New DataTable
        '   Table = FList
        '   oTable = myDoc.Tables.Add(Range:=myDoc.Range(Start:=0, End:=0), NumRows:=Table.Rows.Count + 1, NumColumns:=Table.Columns.Count)
        '將所得到的表的列名,賦值給單元格
        '  Dim Col As DataColumn
        '  Dim Row As DataRow
        '  For Each Col In Table.Columns
        '     colIndex = colIndex + 1
        '     oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName)
        '   Next
        '得到的表所有行,賦值給單元格
        '  For Each Row In Table.Rows
        '    rowIndex = rowIndex + 1
        '   colIndex = 0
        '     For Each Col In Table.Columns
        '      colIndex = colIndex + 1
        '      oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName))
        '     Next
        '  Next
        '  oTable.Borders.InsideLineStyle = 1
        '  oTable.Borders.OutsideLineStyle = 1
        '   wordApp.Visible = True
    End Sub

    Private Sub BtnExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExcel.Click

    End Sub

    Private Sub FrmFeeList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class