frmfeelist.vb

网吧系统管理

'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/07/23
'描    述：网吧计费管理系统客户端/服务器端
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'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