usercontrol1.vb

.net中word的扩展应用。用ado.net对word,excel进行存取_ADO.NET应用

Public Class UserControl1
    '更新按钮
    Private Sub BtnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click
        Dim i, j
        Dim tempt As Integer
        tempt = Globals.Sheet1.ReportDetail(0).Cells.Row + 1
        For i = 0 To Globals.Sheet1.tbSheet.Rows.Count
            If i < 15 Then
                Globals.Sheet1.ReportDetail(i).Value2 = ""
            End If
            If LstField.Items.Count <= Globals.Sheet1.ReportDetail.Count Then
                For j = LstField.Items.Count To (Globals.Sheet1.ReportDetail.Count - 1)
                    Globals.Sheet1.Range(Chr(Asc("A") + j) & tempt + i).Value2() = ""
                Next
            Else
                MessageBox.Show("数据字段过多！")
                Exit Sub
            End If
        Next
        For i = 0 To LstField.Items.Count - 1
            Globals.Sheet1.ReportDetail(i).Value2 = LstField.Items(i).ToString
        Next
        If Globals.Sheet1.TableRead("#######0.00") Then
            Dim listRows As Integer = Globals.Sheet1.tbSheet.Rows.Count
            listRows = Globals.Sheet1.ReportDetail(0).Cells.Row + 2 + listRows
            '  在数据后面添加统计值，如“最大值”“最小值”“平均值”等
            Globals.Sheet1.sheetResult("最大值", "Max", listRows)
            Globals.Sheet1.sheetResult("中值", "Median", listRows + 1)
            Globals.Sheet1.sheetResult("最小值", "Min", listRows + 2)
        End If

    End Sub

    Private Sub BtnReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReturn.Click
        Try
            With LstReport
                .BeginUpdate()
                While (.SelectedIndex <> -1)
                    LstField.Items.Add(.SelectedItem)
                    .Items.RemoveAt(.SelectedIndex)
                End While
                .EndUpdate()
            End With
        Catch ex As Exception
        End Try
    End Sub

    Private Sub BtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBack.Click
        Try
            With LstField
                .BeginUpdate()
                While (.SelectedIndex <> -1)
                    LstReport.Items.Add(.SelectedItem)
                    .Items.RemoveAt(.SelectedIndex)

                End While
                .EndUpdate()
            End With
        Catch ex As Exception
        End Try
    End Sub

    '设置小位数事件
    Private Sub CboDecimalDigits_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CboDecimalDigits.SelectedValueChanged
        Select Case CboDecimalDigits.SelectedItem
            Case 0
                Globals.Sheet1.TableRead("#######0")
            Case 1
                Globals.Sheet1.TableRead("#######0.0")
            Case 2
                Globals.Sheet1.TableRead("#######0.00")
            Case 3
                Globals.Sheet1.TableRead("#######0.000")
            Case 4
                Globals.Sheet1.TableRead("#######0.0000")
            Case 5
                Globals.Sheet1.TableRead("#######0.00000")
            Case Else
                MessageBox.Show("对不起！选择有误！")
        End Select
    End Sub

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

    End Sub
End Class