Public Class 財務_選擇帳本
    Private Sub Set_清單()
        Dim ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear() : 清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 30
        SQL_多帳本選擇()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns("帳本").ReadOnly = True
        If PA45 = "全部" Then
            For i As Integer = 0 To 清單_dgv.Rows.Count - 1
                清單_dgv.Rows(i).Cells("選擇").Value = True
            Next
        Else
            For i As Integer = 0 To 清單_dgv.Rows.Count - 1
                For j As Integer = 0 To 清單_dgv.Rows.Count - 1
                    If 清單_dgv.Rows(i).Cells("帳本").Value = 帳本內容(j) Then
                        清單_dgv.Rows(i).Cells("選擇").Value = True
                    End If
                Next
            Next
        End If

    End Sub
    Private Sub 財務_選擇帳本_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_清單() : 帳本數量 = 0
    End Sub

    Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
        For i As Integer = 1 To 99 : 帳本內容(i) = "" : Next
        Dim s As Integer = 1
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
            If 清單_dgv.Rows(i).Cells("選擇").Value = True Then
                帳本數量 += 1
                帳本內容(s) = 清單_dgv.Rows(i).Cells("帳本").Value.ToString
                s += 1
            End If
        Next
        If 清單_dgv.Rows.Count = 帳本數量 Then
            全 = True
        Else
            全 = False
        End If
        Me.Close()
    End Sub

    Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1 : 清單_dgv.Rows(i).Cells("選擇").Value = True : Next
    End Sub

    Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1 : 清單_dgv.Rows(i).Cells("選擇").Value = False : Next
    End Sub
End Class