GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/未整理與未使用/其他/月份查詢.vb

Public Class 月份查詢
    Private Sub 月份查詢_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS
        DateTimePicker1.Value = CDate(Year(Now) & "/" & Month(Now) & "/1") : DateTimePicker2.Value = Today
        conn.ConnectionString = ConString
        conn.Open()
        ConnOpen()
        SQL1 = "SELECT 匯率 FROM 匯率表"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox59.Text = dr("匯率").ToString : End If
        If TextBox59.Text = "" Then : TextBox59.Text = "0.00" : End If
        conn.Close() : dr.Close()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入)) AS 薪資收入 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'薪資收入')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox26.Text = dr("薪資收入").ToString : End If
        If TextBox26.Text = "" Then : TextBox26.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入)) AS 其他收入 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'其他收入')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox27.Text = dr("其他收入").ToString : End If
        If TextBox27.Text = "" Then : TextBox27.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入)) AS 利息 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'利息')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox28.Text = dr("利息").ToString : End If
        If TextBox28.Text = "" Then : TextBox28.Text = "0.00" : End If
        conn.Close() : dr.Close()

        TextBox40.Text = CStr(Math.Round(Double.Parse(TextBox26.Text) + Double.Parse(TextBox27.Text) + Double.Parse(TextBox28.Text), 2))
        TextBox42.Text = CStr(Math.Round((Double.Parse(TextBox26.Text) / Double.Parse(TextBox40.Text)) * 100, 2))
        TextBox43.Text = CStr(Math.Round((Double.Parse(TextBox27.Text) / Double.Parse(TextBox40.Text)) * 100, 2))
        TextBox44.Text = CStr(Math.Round((Double.Parse(TextBox28.Text) / Double.Parse(TextBox40.Text)) * 100, 2))

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 交通費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'交通費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox29.Text = dr("交通費").ToString : End If
        If TextBox29.Text = "" Then : TextBox29.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 住宿費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'住宿費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox30.Text = dr("住宿費").ToString : End If
        If TextBox30.Text = "" Then : TextBox30.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 伙食費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'伙食費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox31.Text = dr("伙食費").ToString : End If
        If TextBox31.Text = "" Then : TextBox31.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 娛樂費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'娛樂費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox32.Text = dr("娛樂費").ToString : End If
        If TextBox32.Text = "" Then : TextBox32.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 家用費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'家用費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox33.Text = dr("家用費").ToString : End If
        If TextBox33.Text = "" Then : TextBox33.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 醫療費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'醫療費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox34.Text = dr("醫療費").ToString : End If
        If TextBox34.Text = "" Then : TextBox34.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 務公費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'務公費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox35.Text = dr("務公費").ToString : End If
        If TextBox35.Text = "" Then : TextBox35.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 交際費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'交際費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox36.Text = dr("交際費").ToString : End If
        If TextBox36.Text = "" Then : TextBox36.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 其他支出 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'其他支出')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox37.Text = dr("其他支出").ToString : End If
        If TextBox37.Text = "" Then : TextBox37.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 手續費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%人民幣現金%') AND (銀行 NOT LIKE N'%中國工商銀行%') AND (銀行 NOT LIKE N'%中國銀行%') AND " &
              " (銀行 NOT LIKE N'%中行定存%') AND (銀行 NOT LIKE N'%工行定存%') AND (銀行 NOT LIKE N'%農業銀行(協叡)%') AND (銀行 NOT LIKE N'%農業銀行(秀虹)%') AND " &
              " (銀行 NOT LIKE N'%農行定存(協叡)%') AND (銀行 NOT LIKE N'%農業銀行福建叡%') AND (銀行 NOT LIKE N'%農業銀行肇慶叡%') AND (銀行 NOT LIKE N'%農業銀行福建虹%') AND " &
              " (銀行 NOT LIKE N'%農行定存福建叡%') AND (銀行 NOT LIKE N'%農行定存肇慶叡%') AND (銀行 NOT LIKE N'%農行定存福建虹%') AND (銀行 NOT LIKE N'%農行定存(秀虹)%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'手續費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox39.Text = dr("手續費").ToString : End If
        If TextBox39.Text = "" Then : TextBox39.Text = "0.00" : End If
        conn.Close() : dr.Close()

        TextBox41.Text = CStr(Math.Round(Double.Parse(TextBox29.Text) + Double.Parse(TextBox30.Text) + Double.Parse(TextBox31.Text) + Double.Parse(TextBox32.Text) +
                                        Double.Parse(TextBox33.Text) + Double.Parse(TextBox34.Text) + Double.Parse(TextBox35.Text) + Double.Parse(TextBox36.Text) +
                                        Double.Parse(TextBox37.Text) + Double.Parse(TextBox39.Text), 2))
        TextBox45.Text = CStr(Math.Round((Double.Parse(TextBox29.Text) / Double.Parse(TextBox41.Text)) * 100, 2))
        TextBox46.Text = CStr(Math.Round((Double.Parse(TextBox30.Text) / Double.Parse(TextBox41.Text)) * 100, 2))
        TextBox47.Text = CStr(Math.Round((Double.Parse(TextBox31.Text) / Double.Parse(TextBox41.Text)) * 100, 2))
        TextBox48.Text = CStr(Math.Round((Double.Parse(TextBox32.Text) / Double.Parse(TextBox41.Text)) * 100, 2))
        TextBox49.Text = CStr(Math.Round((Double.Parse(TextBox33.Text) / Double.Parse(TextBox41.Text)) * 100, 2))
        TextBox50.Text = CStr(Math.Round((Double.Parse(TextBox34.Text) / Double.Parse(TextBox41.Text)) * 100, 2))
        TextBox51.Text = CStr(Math.Round((Double.Parse(TextBox35.Text) / Double.Parse(TextBox41.Text)) * 100, 2))
        TextBox52.Text = CStr(Math.Round((Double.Parse(TextBox36.Text) / Double.Parse(TextBox41.Text)) * 100, 2))
        TextBox53.Text = CStr(Math.Round((Double.Parse(TextBox37.Text) / Double.Parse(TextBox41.Text)) * 100, 2))
        TextBox54.Text = CStr(Math.Round((Double.Parse(TextBox39.Text) / Double.Parse(TextBox41.Text)) * 100, 2))

        TextBox38.Text = CStr(Math.Round(Double.Parse(TextBox40.Text) - Double.Parse(TextBox41.Text), 2))

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入)) AS 薪資收入 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%')  AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'薪資收入')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox56.Text = dr("薪資收入").ToString : End If
        If TextBox56.Text = "" Then : TextBox56.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入)) AS 其他收入 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'其他收入')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox57.Text = dr("其他收入").ToString : End If
        If TextBox57.Text = "" Then : TextBox57.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 收入)) AS 利息 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'利息')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox58.Text = dr("利息").ToString : End If
        If TextBox58.Text = "" Then : TextBox58.Text = "0.00" : End If
        conn.Close() : dr.Close()

        TextBox55.Text = CStr(Math.Round(Double.Parse(TextBox56.Text) + Double.Parse(TextBox57.Text) + Double.Parse(TextBox58.Text), 2))
        TextBox25.Text = CStr(Math.Round((Double.Parse(TextBox56.Text) / Double.Parse(TextBox55.Text)) * 100, 2))
        TextBox24.Text = CStr(Math.Round((Double.Parse(TextBox57.Text) / Double.Parse(TextBox55.Text)) * 100, 2))
        TextBox23.Text = CStr(Math.Round((Double.Parse(TextBox58.Text) / Double.Parse(TextBox55.Text)) * 100, 2))

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 交通費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'交通費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox14.Text = dr("交通費").ToString : End If
        If TextBox14.Text = "" Then : TextBox14.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 住宿費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'住宿費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox22.Text = dr("住宿費").ToString : End If
        If TextBox22.Text = "" Then : TextBox22.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 伙食費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'伙食費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox21.Text = dr("伙食費").ToString : End If
        If TextBox21.Text = "" Then : TextBox21.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 娛樂費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'娛樂費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox20.Text = dr("娛樂費").ToString : End If
        If TextBox20.Text = "" Then : TextBox20.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 家用費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'家用費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox19.Text = dr("家用費").ToString : End If
        If TextBox19.Text = "" Then : TextBox19.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 醫療費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'醫療費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox18.Text = dr("醫療費").ToString : End If
        If TextBox18.Text = "" Then : TextBox18.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 務公費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'務公費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox17.Text = dr("務公費").ToString : End If
        If TextBox17.Text = "" Then : TextBox17.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 交際費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'交際費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox16.Text = dr("交際費").ToString : End If
        If TextBox16.Text = "" Then : TextBox16.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 其他支出 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'其他支出')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox15.Text = dr("其他支出").ToString : End If
        If TextBox15.Text = "" Then : TextBox15.Text = "0.00" : End If
        conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "SELECT SUM(CONVERT(FLOAT, 支出)) AS 手續費 FROM 流水帳 WHERE (銀行 NOT LIKE N'%台幣現金%') AND (銀行 NOT LIKE N'%新光銀行(協叡)%') AND " &
              " (銀行 NOT LIKE N'%新光銀行(秀虹)%') AND (銀行 NOT LIKE N'%中國信託(協叡)%') AND (銀行 NOT LIKE N'%中國信託(秀虹)%') AND (銀行 NOT LIKE N'%郵局(協叡)%') AND " &
              " (銀行 NOT LIKE N'%郵局(秀虹)%') AND (銀行 NOT LIKE N'%元大銀行%') AND (銀行 NOT LIKE N'%元大證卷%') AND " &
              " (日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND  '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND (類別 LIKE N'手續費')"
         CmdSet_For_dr()
        If dr.Read() Then : TextBox12.Text = dr("手續費").ToString : End If
        If TextBox12.Text = "" Then : TextBox12.Text = "0.00" : End If
        conn.Close() : dr.Close()

        TextBox13.Text = CStr(Math.Round(Double.Parse(TextBox14.Text) + Double.Parse(TextBox22.Text) + Double.Parse(TextBox21.Text) + Double.Parse(TextBox20.Text) +
                                        Double.Parse(TextBox19.Text) + Double.Parse(TextBox18.Text) + Double.Parse(TextBox17.Text) + Double.Parse(TextBox16.Text) +
                                        Double.Parse(TextBox15.Text) + Double.Parse(TextBox12.Text), 2))
        TextBox11.Text = CStr(Math.Round((Double.Parse(TextBox14.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox10.Text = CStr(Math.Round((Double.Parse(TextBox22.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox9.Text = CStr(Math.Round((Double.Parse(TextBox21.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox8.Text = CStr(Math.Round((Double.Parse(TextBox20.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox7.Text = CStr(Math.Round((Double.Parse(TextBox19.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox6.Text = CStr(Math.Round((Double.Parse(TextBox18.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox5.Text = CStr(Math.Round((Double.Parse(TextBox17.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox4.Text = CStr(Math.Round((Double.Parse(TextBox16.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox3.Text = CStr(Math.Round((Double.Parse(TextBox15.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox2.Text = CStr(Math.Round((Double.Parse(TextBox12.Text) / Double.Parse(TextBox13.Text)) * 100, 2))
        TextBox1.Text = CStr(Math.Round(Double.Parse(TextBox55.Text) - Double.Parse(TextBox13.Text), 2))

        TextBox86.Text = CStr(Math.Round((Double.Parse(TextBox56.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox26.Text), 2))
        TextBox87.Text = CStr(Math.Round((Double.Parse(TextBox57.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox27.Text), 2))
        TextBox88.Text = CStr(Math.Round((Double.Parse(TextBox58.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox28.Text), 2))
        TextBox85.Text = CStr(Math.Round(Double.Parse(TextBox86.Text) + Double.Parse(TextBox87.Text) + Double.Parse(TextBox88.Text), 2))

        TextBox84.Text = CStr(Math.Round((Double.Parse(TextBox86.Text) / Double.Parse(TextBox85.Text)) * 100, 2))
        TextBox83.Text = CStr(Math.Round((Double.Parse(TextBox87.Text) / Double.Parse(TextBox85.Text)) * 100, 2))
        TextBox82.Text = CStr(Math.Round((Double.Parse(TextBox88.Text) / Double.Parse(TextBox85.Text)) * 100, 2))

        TextBox73.Text = CStr(Math.Round((Double.Parse(TextBox14.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox29.Text), 2))
        TextBox81.Text = CStr(Math.Round((Double.Parse(TextBox22.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox30.Text), 2))
        TextBox80.Text = CStr(Math.Round((Double.Parse(TextBox21.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox31.Text), 2))
        TextBox79.Text = CStr(Math.Round((Double.Parse(TextBox20.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox32.Text), 2))
        TextBox78.Text = CStr(Math.Round((Double.Parse(TextBox19.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox33.Text), 2))
        TextBox77.Text = CStr(Math.Round((Double.Parse(TextBox18.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox34.Text), 2))
        TextBox76.Text = CStr(Math.Round((Double.Parse(TextBox17.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox35.Text), 2))
        TextBox75.Text = CStr(Math.Round((Double.Parse(TextBox16.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox36.Text), 2))
        TextBox74.Text = CStr(Math.Round((Double.Parse(TextBox15.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox37.Text), 2))
        TextBox71.Text = CStr(Math.Round((Double.Parse(TextBox12.Text) * Double.Parse(TextBox59.Text)) + Double.Parse(TextBox39.Text), 2))
        TextBox72.Text = CStr(Math.Round(Double.Parse(TextBox73.Text) + Double.Parse(TextBox81.Text) + Double.Parse(TextBox80.Text) + Double.Parse(TextBox79.Text) +
                                  Double.Parse(TextBox78.Text) + Double.Parse(TextBox77.Text) + Double.Parse(TextBox76.Text) + Double.Parse(TextBox75.Text) +
                                  Double.Parse(TextBox74.Text) + Double.Parse(TextBox71.Text), 2))
        TextBox70.Text = CStr(Math.Round((Double.Parse(TextBox73.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox69.Text = CStr(Math.Round((Double.Parse(TextBox81.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox68.Text = CStr(Math.Round((Double.Parse(TextBox80.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox67.Text = CStr(Math.Round((Double.Parse(TextBox79.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox66.Text = CStr(Math.Round((Double.Parse(TextBox78.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox65.Text = CStr(Math.Round((Double.Parse(TextBox77.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox64.Text = CStr(Math.Round((Double.Parse(TextBox76.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox63.Text = CStr(Math.Round((Double.Parse(TextBox75.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox62.Text = CStr(Math.Round((Double.Parse(TextBox74.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox61.Text = CStr(Math.Round((Double.Parse(TextBox71.Text) / Double.Parse(TextBox72.Text)) * 100, 2))
        TextBox60.Text = CStr(Math.Round(Double.Parse(TextBox85.Text) - Double.Parse(TextBox72.Text), 2))
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox26.Text = "" : TextBox27.Text = "" : TextBox28.Text = "" : TextBox40.Text = "" : TextBox42.Text = "" : TextBox43.Text = "" : TextBox44.Text = "" : TextBox29.Text = "" : TextBox30.Text = ""
        TextBox31.Text = "" : TextBox32.Text = "" : TextBox33.Text = "" : TextBox34.Text = "" : TextBox35.Text = "" : TextBox36.Text = "" : TextBox37.Text = "" : TextBox39.Text = "" : TextBox41.Text = ""
        TextBox45.Text = "" : TextBox46.Text = "" : TextBox47.Text = "" : TextBox48.Text = "" : TextBox49.Text = "" : TextBox50.Text = "" : TextBox51.Text = "" : TextBox52.Text = "" : TextBox53.Text = ""
        TextBox54.Text = "" : TextBox38.Text = "" : TextBox56.Text = "" : TextBox57.Text = "" : TextBox58.Text = "" : TextBox25.Text = "" : TextBox24.Text = "" : TextBox23.Text = "" : TextBox14.Text = ""
        TextBox22.Text = "" : TextBox21.Text = "" : TextBox20.Text = "" : TextBox19.Text = "" : TextBox18.Text = "" : TextBox17.Text = "" : TextBox16.Text = "" : TextBox15.Text = "" : TextBox12.Text = ""
        TextBox13.Text = "" : TextBox1.Text = "" : TextBox11.Text = "" : TextBox10.Text = "" : TextBox9.Text = "" : TextBox8.Text = "" : TextBox7.Text = "" : TextBox6.Text = "" : TextBox5.Text = ""
        TextBox4.Text = "" : TextBox3.Text = "" : TextBox2.Text = "" : TextBox55.Text = "" : TextBox86.Text = "" : TextBox87.Text = "" : TextBox88.Text = "" : TextBox85.Text = "" : TextBox84.Text = ""
        TextBox83.Text = "" : TextBox82.Text = "" : TextBox73.Text = "" : TextBox81.Text = "" : TextBox80.Text = "" : TextBox79.Text = "" : TextBox78.Text = "" : TextBox77.Text = "" : TextBox76.Text = ""
        TextBox75.Text = "" : TextBox74.Text = "" : TextBox71.Text = "" : TextBox72.Text = "" : TextBox70.Text = "" : TextBox69.Text = "" : TextBox68.Text = "" : TextBox67.Text = "" : TextBox66.Text = ""
        TextBox65.Text = "" : TextBox64.Text = "" : TextBox63.Text = "" : TextBox62.Text = "" : TextBox61.Text = "" : TextBox60.Text = ""
    End Sub
End Class