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 temp As Integer
        temp = Globals.Sheet1.ReportDetail(0).Cells.Row + 1
        For i = 0 To Globals.Sheet1.tbSheet.Rows.Count
            '清除详细部分ReportDetail的内容
            If i < 15 Then
                Globals.Sheet1.ReportDetail(i).Value2 = ""
                Globals.Sheet1.ReportDetail(i + 15) = ""
                Globals.Sheet1.ReportDetailUnit(i).value2 = ""
            End If
            '清除单元格内容
            For j = LstField.Items.Count To (Globals.Sheet1.ReportDetail.Count / 2 - 1)
                Globals.Sheet1.Range(Chr(Asc("A") + j) & temp + i).Value2() = ""
            Next
        Next


        For i = 0 To LstField.Items.Count - 1
            Globals.Sheet1.ReportDetail(i).Value2 = LstField.Items(i).ToString
            For j = 0 To Globals.Sheet1.tbSheet.Columns.Count - 1
                If LstField.Items(i).ToString = Globals.Sheet1.strChange(0, j) Then
                    Globals.Sheet1.ReportDetail(i + 15) = Globals.Sheet1.strChange(1, j)
                    Exit For
                End If
            Next
        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
            If LstField.Items.Count < 15 Then
                With LstReport
                    .BeginUpdate()

                    While (.SelectedIndex <> -1)
                        LstField.Items.Add(.SelectedItem)
                        .Items.RemoveAt(.SelectedIndex)
                    End While

                    .EndUpdate()
                End With
            End If
        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


End Class