20221210備份

GA-ERP-SYS/GA-ERP-SYS.vb

         MyModule1.驗證單一登入() : PA = "" : 後台股東紅利設定.Show() : 後台股東紅利設定.BringToFront()
     End Sub
     Private Sub 後台帳務彙總計算表_tsm_Click(sender As Object, e As EventArgs) Handles 後台帳務彙總計算表_tsm.Click
+        後台帳務彙總結算表.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 60)
         MyModule1.驗證單一登入() : PA = "" : 後台帳務彙總結算表.Show() : 後台帳務彙總結算表.BringToFront()
     End Sub
     Private Sub 後台帳務明細查詢表_tsm_Click(sender As Object, e As EventArgs) Handles 後台帳務明細查詢表_tsm.Click

GA-ERP-SYS/GA-ERP-SYS.vbproj

     <Compile Include="報表系統管理\列印選擇.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="報表系統管理\前台\彙總報表預覽.Designer.vb">
+      <DependentUpon>彙總報表預覽.vb</DependentUpon>
+    </Compile>
+    <Compile Include="報表系統管理\前台\彙總報表預覽.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="報表系統管理\前台\電板客戶資料.Designer.vb">
       <DependentUpon>電板客戶資料.vb</DependentUpon>
     </Compile>
     <EmbeddedResource Include="報表系統管理\列印選擇.resx">
       <DependentUpon>列印選擇.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="報表系統管理\前台\彙總報表預覽.resx">
+      <DependentUpon>彙總報表預覽.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="報表系統管理\前台\電板客戶資料.resx">
       <DependentUpon>電板客戶資料.vb</DependentUpon>
     </EmbeddedResource>

GA-ERP-SYS/Module/SQL_子系統管理.vb

         CmdSet_For_dr()
     End Sub
     '--------------------------基本資料管理---------------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_自動正負反()
+        ConnOpen_子SQL() : SQL1 = "SELECT 自動, 依電板, 依球板 FROM 自動導入判斷" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_自動正負反存檔()
+        ConnOpen_子SQL()
+        SQL1 = "UPDATE 自動導入判斷 SET 自動 = '" & 電板帳務彙總計算表.自動正負反_ch.Checked & "', 依電板 = '" & 電板帳務彙總計算表.依電板習慣_ch.Checked & "', 
+                                    依球板 = '" & 電板帳務彙總計算表.依球版習慣_ch.Checked & "'"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_客戶下層全部關閉()
         ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 下層 = '0'" : CmdSet_For_dr()
     End Sub
         SQL1 = "SELECT      後台彙總存檔.商品 AS 項次, 後台彙總存檔.商品, 後台彙總存檔.系統, SUM(CAST(後台彙總存檔.排序 AS money)) 
                             AS [貢獻度-日], SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-日], SUM(CAST(後台彙總存檔.排序 AS money)) 
                             AS [貢獻度-周], SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-周], SUM(CAST(後台彙總存檔.排序 AS money)) 
+                            AS [貢獻度-月], SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-月], SUM(CAST(後台彙總存檔.排序 AS money)) 
                             AS [結果-年]
                 FROM        後台彙總存檔 LEFT OUTER JOIN
                             後台商客基本資料表 ON 後台彙總存檔.帳號 = 後台商客基本資料表.帳號 AND 

GA-ERP-SYS/Module/全域變數.vb

     Public 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 登入客戶, 登入資料庫, 業務名稱, AA(99), QA1, QA2, QA3, QA4, 到期 As String
     Public BB(99), CC(99), 登入判斷, IP印尼, IP台灣 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022120101"
+    Public 版本 As String = "2022120501"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入, 內網區域, 關閉系統, 內網確認 As Boolean
     Public timeExit, timeExit2, timeNow, timeNow2 As Integer : Public 密碼時限 As Integer = 30 : Public 剩餘天數 As Integer
     '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 設定異常表0, 設定異常表1, 設定異常表2, 進度條後墜, 網址01, 主帳號01, 天周月, 開始D, 結束D As String
-    Public 異常表0, 異常表1, 異常表2, 計算累加, 分母, NN1, NN2, NN3, NN4, NN5, NN6, NN7, NN8, NN9 As Integer
+    Public 異常表0, 異常表1, 異常表2, 計算累加, 分母, NN1, NN2, NN3, NN4, NN5, NN6, NN7, NN8, NN9, NN10 As Integer
     Public PPAA, PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21 As String
     Public PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41 As String
     Public PA42, PA43, PA44, PA45, PA46, PA47, PA48, PA49 As String
-    Public PB1(300), PB2(300), PB3(300), PB4(300), PB5(300), PB6(300), PB7(300), PB8(300), PPBB(3000) As String
+    Public PB1(300), PB2(300), PB3(300), PB4(300), PB5(300), PB6(300), PB7(300), PB8(300), PPBB(3000), A(1000), B(1000), C(1000), D(1000), F(1000) As String
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public NU1, NU2, NU3, NU4, NU5, 分段1, 分段2, 分段3, 分段4 As Double
     '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.CoreCompileInputs.cache

-01c5d6174df0e8ec26559c80514c5774c73c6eb5
+b1ab95c996c19da589d1cff242720f15ad5454f5

GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.FileListAbsolute.txt

 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板帳務彙總計算表.resources
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台帳務彙總結算表.resources
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.內網選擇.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.彙總報表預覽.resources

GA-ERP-SYS/報表系統管理/前台/彙總報表預覽.Designer.vb

+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 彙總報表預覽
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.合帳_dgv = New System.Windows.Forms.DataGridView()
+        Me.項次 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.商品 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.帳號 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.階級 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.交收金額 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.信息_lb = New System.Windows.Forms.Label()
+        Me.彙總_lb = New System.Windows.Forms.Label()
+        Me.截圖_bt = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        CType(Me.合帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        '合帳_dgv
+        '
+        Me.合帳_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.合帳_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.合帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.合帳_dgv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.項次, Me.商品, Me.帳號, Me.階級, Me.交收金額})
+        Me.合帳_dgv.Location = New System.Drawing.Point(2, 25)
+        Me.合帳_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.合帳_dgv.Name = "合帳_dgv"
+        Me.合帳_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.合帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.合帳_dgv.RowTemplate.Height = 24
+        Me.合帳_dgv.Size = New System.Drawing.Size(428, 257)
+        Me.合帳_dgv.TabIndex = 1677
+        '
+        '項次
+        '
+        Me.項次.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.項次.FillWeight = 60.0!
+        Me.項次.HeaderText = "項次"
+        Me.項次.Name = "項次"
+        '
+        '商品
+        '
+        Me.商品.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.商品.HeaderText = "商品"
+        Me.商品.Name = "商品"
+        '
+        '帳號
+        '
+        Me.帳號.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.帳號.HeaderText = "帳號"
+        Me.帳號.Name = "帳號"
+        '
+        '階級
+        '
+        Me.階級.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.階級.FillWeight = 60.0!
+        Me.階級.HeaderText = "階級"
+        Me.階級.Name = "階級"
+        '
+        '交收金額
+        '
+        Me.交收金額.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.交收金額.FillWeight = 150.0!
+        Me.交收金額.HeaderText = "交收金額"
+        Me.交收金額.Name = "交收金額"
+        '
+        '信息_lb
+        '
+        Me.信息_lb.AutoSize = True
+        Me.信息_lb.Location = New System.Drawing.Point(6, 5)
+        Me.信息_lb.Name = "信息_lb"
+        Me.信息_lb.Size = New System.Drawing.Size(40, 16)
+        Me.信息_lb.TabIndex = 1678
+        Me.信息_lb.Text = "..........."
+        '
+        '彙總_lb
+        '
+        Me.彙總_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.彙總_lb.AutoSize = True
+        Me.彙總_lb.Location = New System.Drawing.Point(293, 285)
+        Me.彙總_lb.Name = "彙總_lb"
+        Me.彙總_lb.Size = New System.Drawing.Size(134, 16)
+        Me.彙總_lb.TabIndex = 1679
+        Me.彙總_lb.Text = "交收總額 : XX,XXX,XXX"
+        '
+        '截圖_bt
+        '
+        Me.截圖_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.截圖_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.截圖_bt.Location = New System.Drawing.Point(388, 1)
+        Me.截圖_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.截圖_bt.Name = "截圖_bt"
+        Me.截圖_bt.Size = New System.Drawing.Size(42, 24)
+        Me.截圖_bt.TabIndex = 1680
+        Me.截圖_bt.Text = "截圖"
+        Me.截圖_bt.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.Controls.Add(Me.截圖_bt)
+        Me.Panel1.Controls.Add(Me.信息_lb)
+        Me.Panel1.Controls.Add(Me.彙總_lb)
+        Me.Panel1.Controls.Add(Me.合帳_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(-1, -1)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(434, 305)
+        Me.Panel1.TabIndex = 1681
+        '
+        '彙總報表預覽
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(432, 303)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.Name = "彙總報表預覽"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "彙總報表預覽"
+        CType(Me.合帳_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents 合帳_dgv As DataGridView
+    Friend WithEvents 信息_lb As Label
+    Friend WithEvents 項次 As DataGridViewTextBoxColumn
+    Friend WithEvents 商品 As DataGridViewTextBoxColumn
+    Friend WithEvents 帳號 As DataGridViewTextBoxColumn
+    Friend WithEvents 階級 As DataGridViewTextBoxColumn
+    Friend WithEvents 交收金額 As DataGridViewTextBoxColumn
+    Friend WithEvents 彙總_lb As Label
+    Friend WithEvents 截圖_bt As Button
+    Friend WithEvents Panel1 As Panel
+End Class

GA-ERP-SYS/報表系統管理/前台/彙總報表預覽.resx

+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="項次.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="商品.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="帳號.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="階級.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="交收金額.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>

GA-ERP-SYS/報表系統管理/前台/彙總報表預覽.vb

+Public Class 彙總報表預覽
+    Dim 不計算 As Boolean = False : Dim NS1 As Integer
+    Private Sub 彙總報表預覽_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+    End Sub
+    Private Sub 彙總報表預覽_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        合帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        合帳_dgv.ColumnHeadersHeight = 25 : 合帳_dgv.AllowUserToAddRows = False
+        合帳_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        合帳_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        合帳_dgv.RowTemplate.Height = 19
+        For i As Integer = 0 To 合帳_dgv.Rows.Count - 1 : 合帳_dgv.Rows.RemoveAt(0) : Next
+        For i As Integer = 0 To NN10 : 合帳_dgv.Rows.Insert(0) : Next
+        信息_lb.Text = PA49 : NS1 = 0
+        For i As Integer = 0 To NN10 - 1
+            合帳_dgv.Rows(i).Cells(0).Value = i + 1 : 合帳_dgv.Rows(i).Cells(1).Value = B(i) : 合帳_dgv.Rows(i).Cells(2).Value = C(i)
+            合帳_dgv.Rows(i).Cells(3).Value = D(i) : 合帳_dgv.Rows(i).Cells(4).Value = F(i)
+            If 合帳_dgv.Rows(i).Cells(4).Value.ToString <> "" Then
+                NS1 += CInt(合帳_dgv.Rows(i).Cells(4).Value)
+            End If
+        Next : 不計算 = True
+        彙總_lb.Text = "交收總額 : " & Strings.Format(NS1, "#,##0")
+    End Sub
+    Private Sub 合帳_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 合帳_dgv.CellFormatting
+        If 不計算 = True Then
+            If e.Value <> Nothing Then
+                If IsNumeric(e.Value.ToString) = True Then
+                    If CInt(e.Value.ToString) < 0 Then : e.CellStyle.ForeColor = Color.Red
+                    ElseIf CInt(e.Value.ToString) >= 0 Then : e.CellStyle.ForeColor = Color.Blue : End If
+                End If
+            End If
+        End If
+    End Sub
+    'Private Sub 合帳_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 合帳_dgv.RowPostPaint
+    '    If 不計算 = True Then
+    '        Dim linePen As New Pen(Color.Blue, 2)
+    '        If e.RowIndex = 合帳_dgv.Rows.Count - 1 Then
+    '            Exit Sub
+    '        Else
+    '            If 合帳_dgv(3, e.RowIndex + 1).Value <> Nothing Then
+    '                If 合帳_dgv(3, e.RowIndex).Value.ToString.ToLower() <> 合帳_dgv(3, e.RowIndex + 1).Value.ToString.ToLower() Then
+    '                    Dim startX As Integer = IIf(合帳_dgv.RowHeadersVisible, 合帳_dgv.RowHeadersWidth, 0)
+    '                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+    '                    Dim endX As Integer = startX + 合帳_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 合帳_dgv.HorizontalScrollingOffset
+    '                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+    '                    Exit Sub
+    '                End If
+    '            End If
+    '        End If
+    '    End If
+    'End Sub
+    Private Sub 截圖_bt_Click(sender As Object, e As EventArgs) Handles 截圖_bt.Click
+        Dim bm = New Bitmap(Panel1.Width, Panel1.Height)
+        Panel1.DrawToBitmap(bm, Panel1.ClientRectangle)
+        My.Computer.Clipboard.SetImage(bm)
+    End Sub
+End Class

GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.Designer.vb

         Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.紅利總表_dgv = New System.Windows.Forms.DataGridView()
         Me.上下所水分流表_bt = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.報表_bt = New System.Windows.Forms.Button()
         Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
         Me.地帳2_tb = New System.Windows.Forms.TextBox()
-        Me.水差合帳2_dgv = New System.Windows.Forms.DataGridView()
-        Me.水差合帳1_dgv = New System.Windows.Forms.DataGridView()
         Me.水差2_tb = New System.Windows.Forms.TextBox()
+        Me.水差合帳2_dgv = New System.Windows.Forms.DataGridView()
         Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
         Me.天帳2_tb = New System.Windows.Forms.TextBox()
         Me.所得合帳2_dgv = New System.Windows.Forms.DataGridView()
         Me.手工帳務存檔_bt = New System.Windows.Forms.Button()
         Me.紙帳非前期_dgv = New System.Windows.Forms.DataGridView()
         Me.截圖_bt = New System.Windows.Forms.Button()
+        Me.水差合帳1_dgv = New System.Windows.Forms.DataGridView()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.開始日期2_dtp = New System.Windows.Forms.DateTimePicker()
         Me.結束日期2_dtp = New System.Windows.Forms.DateTimePicker()
         Me.紙帳導入_dgv = New System.Windows.Forms.DataGridView()
         Me.電板所得_dgv = New System.Windows.Forms.DataGridView()
         Me.通知1_lb = New System.Windows.Forms.Label()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.網址修正_dgv = New System.Windows.Forms.DataGridView()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.Label56 = New System.Windows.Forms.Label()
         Me.CanceL4_bt = New System.Windows.Forms.Button()
         Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.自動調整存檔_bt = New System.Windows.Forms.Button()
+        Me.依球版習慣_ch = New System.Windows.Forms.CheckBox()
+        Me.依電板習慣_ch = New System.Windows.Forms.CheckBox()
+        Me.自動正負反_ch = New System.Windows.Forms.CheckBox()
         Me.合帳_bt = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.列印1_bt = New System.Windows.Forms.Button()
         Me.核帳0_tb = New System.Windows.Forms.TextBox()
         Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
         Me.其他操作功能_bt = New System.Windows.Forms.Button()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label20 = New System.Windows.Forms.Label()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer3.Panel2.SuspendLayout()
         Me.SplitContainer3.SuspendLayout()
         CType(Me.水差合帳2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.水差合帳1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer2.Panel1.SuspendLayout()
         Me.SplitContainer2.Panel2.SuspendLayout()
         CType(Me.紅利支出_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紙帳前期_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紙帳非前期_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.水差合帳1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel3.SuspendLayout()
         CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.電板紙帳1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紙帳流水1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紙帳導入_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.電板所得_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.網址修正_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.自定帳務_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.視窗4_pl.SuspendLayout()
         Me.SplitContainer4.Panel1.SuspendLayout()
         Me.SplitContainer4.Panel2.SuspendLayout()
         Me.SplitContainer4.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '流水帳_dgv
         '
         Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
         DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         '
         Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Panel2.Controls.Add(Me.報表_bt)
         Me.Panel2.Controls.Add(Me.SplitContainer3)
         Me.Panel2.Controls.Add(Me.SplitContainer2)
         Me.Panel2.Controls.Add(Me.SplitContainer1)
         Me.Panel2.Size = New System.Drawing.Size(737, 913)
         Me.Panel2.TabIndex = 1683
         '
+        '報表_bt
+        '
+        Me.報表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.報表_bt.Location = New System.Drawing.Point(602, 2)
+        Me.報表_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.報表_bt.Name = "報表_bt"
+        Me.報表_bt.Size = New System.Drawing.Size(42, 24)
+        Me.報表_bt.TabIndex = 1703
+        Me.報表_bt.Text = "預覽"
+        Me.報表_bt.UseVisualStyleBackColor = True
+        '
         'SplitContainer3
         '
         Me.SplitContainer3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         Me.地帳2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         Me.地帳2_tb.Visible = False
         '
+        '水差2_tb
+        '
+        Me.水差2_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.水差2_tb.ForeColor = System.Drawing.Color.Green
+        Me.水差2_tb.Location = New System.Drawing.Point(1, 353)
+        Me.水差2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.水差2_tb.Name = "水差2_tb"
+        Me.水差2_tb.Size = New System.Drawing.Size(57, 23)
+        Me.水差2_tb.TabIndex = 1692
+        Me.水差2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.水差2_tb.Visible = False
+        '
         '水差合帳2_dgv
         '
         Me.水差合帳2_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         Me.水差合帳2_dgv.Size = New System.Drawing.Size(280, 353)
         Me.水差合帳2_dgv.TabIndex = 1699
         '
-        '水差合帳1_dgv
-        '
-        Me.水差合帳1_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.水差合帳1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.水差合帳1_dgv.BackgroundColor = System.Drawing.Color.White
-        Me.水差合帳1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.水差合帳1_dgv.Location = New System.Drawing.Point(35, 540)
-        Me.水差合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.水差合帳1_dgv.Name = "水差合帳1_dgv"
-        Me.水差合帳1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle50.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
-        Me.水差合帳1_dgv.RowTemplate.Height = 24
-        Me.水差合帳1_dgv.Size = New System.Drawing.Size(280, 110)
-        Me.水差合帳1_dgv.TabIndex = 1698
-        Me.水差合帳1_dgv.Visible = False
-        '
-        '水差2_tb
-        '
-        Me.水差2_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.水差2_tb.ForeColor = System.Drawing.Color.Green
-        Me.水差2_tb.Location = New System.Drawing.Point(1, 353)
-        Me.水差2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.水差2_tb.Name = "水差2_tb"
-        Me.水差2_tb.Size = New System.Drawing.Size(57, 23)
-        Me.水差2_tb.TabIndex = 1692
-        Me.水差2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.水差2_tb.Visible = False
-        '
         'SplitContainer2
         '
         Me.SplitContainer2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         '截圖_bt
         '
         Me.截圖_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.截圖_bt.Location = New System.Drawing.Point(566, 2)
+        Me.截圖_bt.Location = New System.Drawing.Point(558, 2)
         Me.截圖_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.截圖_bt.Name = "截圖_bt"
-        Me.截圖_bt.Size = New System.Drawing.Size(80, 24)
+        Me.截圖_bt.Size = New System.Drawing.Size(42, 24)
         Me.截圖_bt.TabIndex = 1628
         Me.截圖_bt.Text = "截圖"
         Me.截圖_bt.UseVisualStyleBackColor = True
         '
+        '水差合帳1_dgv
+        '
+        Me.水差合帳1_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.水差合帳1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.水差合帳1_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.水差合帳1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.水差合帳1_dgv.Location = New System.Drawing.Point(35, 540)
+        Me.水差合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.水差合帳1_dgv.Name = "水差合帳1_dgv"
+        Me.水差合帳1_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle50.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
+        Me.水差合帳1_dgv.RowTemplate.Height = 24
+        Me.水差合帳1_dgv.Size = New System.Drawing.Size(280, 110)
+        Me.水差合帳1_dgv.TabIndex = 1698
+        Me.水差合帳1_dgv.Visible = False
+        '
         'Panel3
         '
         Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         Me.通知1_lb.TabIndex = 1697
         Me.通知1_lb.Text = "所得股份自動分配功能未開啟"
         '
-        'PictureBox1
-        '
-        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._1627008239190
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.PictureBox1.Location = New System.Drawing.Point(949, 944)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(385, 25)
-        Me.PictureBox1.TabIndex = 1619
-        Me.PictureBox1.TabStop = False
-        '
         '網址修正_dgv
         '
         DataGridViewCellStyle56.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.視窗4_pl.Controls.Add(Me.Label56)
         Me.視窗4_pl.Controls.Add(Me.CanceL4_bt)
         Me.視窗4_pl.Controls.Add(Me.Panel4)
-        Me.視窗4_pl.Location = New System.Drawing.Point(190, 246)
+        Me.視窗4_pl.Location = New System.Drawing.Point(190, 214)
         Me.視窗4_pl.Name = "視窗4_pl"
-        Me.視窗4_pl.Size = New System.Drawing.Size(376, 118)
+        Me.視窗4_pl.Size = New System.Drawing.Size(396, 159)
         Me.視窗4_pl.TabIndex = 1715
         '
         'Label56
         Me.CanceL4_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.CanceL4_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.CanceL4_bt.ForeColor = System.Drawing.Color.Black
-        Me.CanceL4_bt.Location = New System.Drawing.Point(344, 1)
+        Me.CanceL4_bt.Location = New System.Drawing.Point(364, 1)
         Me.CanceL4_bt.Name = "CanceL4_bt"
         Me.CanceL4_bt.Size = New System.Drawing.Size(26, 26)
         Me.CanceL4_bt.TabIndex = 1374
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel4.Controls.Add(Me.自動調整存檔_bt)
+        Me.Panel4.Controls.Add(Me.依球版習慣_ch)
+        Me.Panel4.Controls.Add(Me.依電板習慣_ch)
+        Me.Panel4.Controls.Add(Me.自動正負反_ch)
         Me.Panel4.Controls.Add(Me.合帳_bt)
         Me.Panel4.Controls.Add(Me.Label6)
         Me.Panel4.Controls.Add(Me.列印1_bt)
         Me.Panel4.Controls.Add(Me.正負調整存檔_bt)
         Me.Panel4.Controls.Add(Me.股東紅利設定_bt)
         Me.Panel4.Controls.Add(Me.核帳0_tb)
+        Me.Panel4.Controls.Add(Me.Label20)
         Me.Panel4.Location = New System.Drawing.Point(3, 27)
         Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(368, 87)
+        Me.Panel4.Size = New System.Drawing.Size(388, 128)
         Me.Panel4.TabIndex = 1713
         '
+        '自動調整存檔_bt
+        '
+        Me.自動調整存檔_bt.ForeColor = System.Drawing.Color.Teal
+        Me.自動調整存檔_bt.Location = New System.Drawing.Point(85, 79)
+        Me.自動調整存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.自動調整存檔_bt.Name = "自動調整存檔_bt"
+        Me.自動調整存檔_bt.Size = New System.Drawing.Size(90, 26)
+        Me.自動調整存檔_bt.TabIndex = 1703
+        Me.自動調整存檔_bt.Text = "自動調整存檔"
+        Me.自動調整存檔_bt.UseVisualStyleBackColor = True
+        '
+        '依球版習慣_ch
+        '
+        Me.依球版習慣_ch.AutoSize = True
+        Me.依球版習慣_ch.Location = New System.Drawing.Point(87, 57)
+        Me.依球版習慣_ch.Name = "依球版習慣_ch"
+        Me.依球版習慣_ch.Size = New System.Drawing.Size(86, 20)
+        Me.依球版習慣_ch.TabIndex = 1702
+        Me.依球版習慣_ch.Text = "依球版習慣"
+        Me.依球版習慣_ch.UseVisualStyleBackColor = True
+        '
+        '依電板習慣_ch
+        '
+        Me.依電板習慣_ch.AutoSize = True
+        Me.依電板習慣_ch.Location = New System.Drawing.Point(87, 31)
+        Me.依電板習慣_ch.Name = "依電板習慣_ch"
+        Me.依電板習慣_ch.Size = New System.Drawing.Size(86, 20)
+        Me.依電板習慣_ch.TabIndex = 1701
+        Me.依電板習慣_ch.Text = "依電板習慣"
+        Me.依電板習慣_ch.UseVisualStyleBackColor = True
+        '
+        '自動正負反_ch
+        '
+        Me.自動正負反_ch.AutoSize = True
+        Me.自動正負反_ch.Location = New System.Drawing.Point(87, 5)
+        Me.自動正負反_ch.Name = "自動正負反_ch"
+        Me.自動正負反_ch.Size = New System.Drawing.Size(86, 20)
+        Me.自動正負反_ch.TabIndex = 1700
+        Me.自動正負反_ch.Text = "自動正負反"
+        Me.自動正負反_ch.UseVisualStyleBackColor = True
+        '
         '合帳_bt
         '
         Me.合帳_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label6.ForeColor = System.Drawing.Color.Purple
-        Me.Label6.Location = New System.Drawing.Point(82, 59)
+        Me.Label6.Location = New System.Drawing.Point(282, 85)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(34, 17)
         Me.Label6.TabIndex = 1699
         '列印1_bt
         '
         Me.列印1_bt.ForeColor = System.Drawing.Color.Green
-        Me.列印1_bt.Location = New System.Drawing.Point(82, 2)
+        Me.列印1_bt.Location = New System.Drawing.Point(176, 2)
         Me.列印1_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.列印1_bt.Name = "列印1_bt"
-        Me.列印1_bt.Size = New System.Drawing.Size(80, 26)
+        Me.列印1_bt.Size = New System.Drawing.Size(99, 26)
         Me.列印1_bt.TabIndex = 1609
         Me.列印1_bt.Text = "列印成Excel"
         Me.列印1_bt.UseVisualStyleBackColor = True
         '合帳_商品_bt
         '
         Me.合帳_商品_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.合帳_商品_bt.Location = New System.Drawing.Point(263, 2)
+        Me.合帳_商品_bt.Location = New System.Drawing.Point(278, 2)
         Me.合帳_商品_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.合帳_商品_bt.Name = "合帳_商品_bt"
         Me.合帳_商品_bt.Size = New System.Drawing.Size(100, 26)
         '異常設定_bt
         '
         Me.異常設定_bt.ForeColor = System.Drawing.Color.Red
-        Me.異常設定_bt.Location = New System.Drawing.Point(163, 54)
+        Me.異常設定_bt.Location = New System.Drawing.Point(176, 80)
         Me.異常設定_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.異常設定_bt.Name = "異常設定_bt"
         Me.異常設定_bt.Size = New System.Drawing.Size(100, 26)
         '合帳_帳號_tb
         '
         Me.合帳_帳號_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.合帳_帳號_tb.Location = New System.Drawing.Point(263, 28)
+        Me.合帳_帳號_tb.Location = New System.Drawing.Point(278, 28)
         Me.合帳_帳號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.合帳_帳號_tb.Name = "合帳_帳號_tb"
         Me.合帳_帳號_tb.Size = New System.Drawing.Size(100, 26)
         '合帳_子帳號_tb
         '
         Me.合帳_子帳號_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.合帳_子帳號_tb.Location = New System.Drawing.Point(263, 54)
+        Me.合帳_子帳號_tb.Location = New System.Drawing.Point(278, 54)
         Me.合帳_子帳號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.合帳_子帳號_tb.Name = "合帳_子帳號_tb"
         Me.合帳_子帳號_tb.Size = New System.Drawing.Size(100, 26)
         '正負調整存檔_bt
         '
         Me.正負調整存檔_bt.ForeColor = System.Drawing.Color.Teal
-        Me.正負調整存檔_bt.Location = New System.Drawing.Point(163, 2)
+        Me.正負調整存檔_bt.Location = New System.Drawing.Point(176, 28)
         Me.正負調整存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.正負調整存檔_bt.Name = "正負調整存檔_bt"
         Me.正負調整存檔_bt.Size = New System.Drawing.Size(100, 26)
         '股東紅利設定_bt
         '
         Me.股東紅利設定_bt.ForeColor = System.Drawing.Color.Teal
-        Me.股東紅利設定_bt.Location = New System.Drawing.Point(163, 28)
+        Me.股東紅利設定_bt.Location = New System.Drawing.Point(176, 54)
         Me.股東紅利設定_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.股東紅利設定_bt.Name = "股東紅利設定_bt"
         Me.股東紅利設定_bt.Size = New System.Drawing.Size(100, 26)
         '核帳0_tb
         '
         Me.核帳0_tb.ForeColor = System.Drawing.Color.Purple
-        Me.核帳0_tb.Location = New System.Drawing.Point(113, 56)
+        Me.核帳0_tb.Location = New System.Drawing.Point(325, 82)
         Me.核帳0_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.核帳0_tb.Name = "核帳0_tb"
         Me.核帳0_tb.Size = New System.Drawing.Size(47, 23)
         Me.其他操作功能_bt.Text = "其他操作功能"
         Me.其他操作功能_bt.UseVisualStyleBackColor = True
         '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._1627008239190
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.PictureBox1.Location = New System.Drawing.Point(949, 944)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(385, 25)
+        Me.PictureBox1.TabIndex = 1619
+        Me.PictureBox1.TabStop = False
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label20.ForeColor = System.Drawing.Color.Red
+        Me.Label20.Location = New System.Drawing.Point(11, 106)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(359, 15)
+        Me.Label20.TabIndex = 1704
+        Me.Label20.Text = "請注意，自動判斷正負反的功能不一定適合使用者的習慣，請斟酌使用。"
+        '
         '電板帳務彙總計算表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer3.ResumeLayout(False)
         CType(Me.水差合帳2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.水差合帳1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer2.Panel1.ResumeLayout(False)
         Me.SplitContainer2.Panel1.PerformLayout()
         Me.SplitContainer2.Panel2.ResumeLayout(False)
         CType(Me.紅利支出_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.紙帳前期_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.紙帳非前期_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.水差合帳1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel3.ResumeLayout(False)
         Me.Panel3.PerformLayout()
         CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.紙帳流水1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.紙帳導入_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.電板所得_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.網址修正_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.自定帳務_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.視窗4_pl.ResumeLayout(False)
         Me.SplitContainer4.Panel2.PerformLayout()
         CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer4.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents 核帳0_tb As TextBox
     Friend WithEvents SplitContainer4 As SplitContainer
     Friend WithEvents 其他操作功能_bt As Button
+    Friend WithEvents 報表_bt As Button
+    Friend WithEvents 自動調整存檔_bt As Button
+    Friend WithEvents 依球版習慣_ch As CheckBox
+    Friend WithEvents 依電板習慣_ch As CheckBox
+    Friend WithEvents 自動正負反_ch As CheckBox
+    Friend WithEvents Label20 As Label
 End Class

GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.vb

 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Public Class 電板帳務彙總計算表
-    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds10, ds15, ds16, ds17, ds18, ds19, ds20 As New DataSet
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds15, ds16, ds17, ds18, ds19, ds20 As New DataSet
     Dim GP As Integer = 0 : Dim NH1, 批次, 選擇記憶 As Integer
     Dim GPP As String : Dim 本周周一 As Date
     Dim 暫不計算, 是否明細, 是否子明細, 上繳反轉, 紙帳存檔, 其他控制 As Boolean
         End If
     End Sub
     Private Sub 帳務彙總計算表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
-        資料數 = 8 : SQL_客戶下層全部關閉()
+        資料數 = 8 : SQL_客戶下層全部關閉() : SQL_自動正負反()
+        If dr.Read Then
+            If IsDBNull(dr("自動")) = False Then
+                自動正負反_ch.Checked = dr("自動") : 依電板習慣_ch.Checked = dr("依電板") : 依球版習慣_ch.Checked = dr("依球板")
+            End If
+        End If
+
         If CC(8) = False Then : Delete_bT.Enabled = False : End If : MyModule1.進度條()
         If CC(19) = False Then : 進階控制_bt.Enabled = False : End If : MyModule1.進度條()
 
                     合帳_dgv.Rows(I).Cells("應收1").Value = Val(合帳_dgv.Rows(I).Cells("應收1").Value) * -1
                 End If
             Next
+            '-----------------自動帳務再算一次--------------------------------------------------------------------------------------------------------------
+            If 自動正負反_ch.Checked = True Then
+                If 依電板習慣_ch.Checked = True Then
+                    For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
+                        If CInt(合帳_dgv.Rows(I).Cells("應付").Value) = 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) = 0 Then
+                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
+                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) <> 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) = 0 Then
+                            合帳_dgv("付反", I).Value = True : 合帳_dgv("收反", I).Value = False
+                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) <> 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) <> 0 Then
+                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
+                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) = 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) <> 0 Then
+                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
+                        End If
+                    Next
+                ElseIf 依電板習慣_ch.Checked = False Then
+                    For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
+                        If CInt(合帳_dgv.Rows(I).Cells("應付").Value) = 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) = 0 Then
+                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
+                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) <> 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) = 0 Then
+                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
+                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) <> 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) <> 0 Then
+                            合帳_dgv("付反", I).Value = True : 合帳_dgv("收反", I).Value = True
+                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) = 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) <> 0 Then
+                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = True
+                        End If
+                    Next
+                End If
+                For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
+                    For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1
+                        If 合帳_dgv("客戶", I).Value.ToString = 上繳名_dgv("上繳", II).Value.ToString Then
+                            If 合帳_dgv("付反", I).Value = False Then
+                                合帳_dgv("應付", I).Value = 上繳名_dgv("交割金額", II).Value.ToString : 合帳_dgv("應付1", I).Value = 上繳名_dgv("交割金額", II).Value.ToString
+                            Else
+                                合帳_dgv("應付", I).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("應付1", I).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1
+                            End If
+                        End If
+                    Next
+                    For II As Integer = 0 To 下收名_dgv.Rows.Count - 1
+                        If 合帳_dgv("客戶", I).Value.ToString = 下收名_dgv("下收", II).Value.ToString Then
+                            If 合帳_dgv("收反", I).Value = False Then
+                                合帳_dgv("應收", I).Value = 下收名_dgv("交割金額", II).Value.ToString : 合帳_dgv("應收1", I).Value = 下收名_dgv("交割金額", II).Value.ToString
+                            Else
+                                合帳_dgv("應收", I).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("應收1", I).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1
+                            End If
+                        End If
+                    Next
+                    '----------------所得三重奏----------------------------------------------------------------------------------------------------------------------------------------------------------
+                    合帳_dgv("個人所得", I).Value = "0" : 合帳_dgv("個人所得1", I).Value = "0"
+                    For II As Integer = 0 To 所得名_dgv.Rows.Count - 1
+                        If 合帳_dgv("客戶", I).Value.ToString = 所得名_dgv("所得", II).Value.ToString Then
+                            If 合帳_dgv("所反", I).Value = False Then
+                                合帳_dgv("個人所得", I).Value = 所得名_dgv("交割金額", II).Value.ToString
+                                合帳_dgv("個人所得1", I).Value = 所得名_dgv("交割金額", II).Value.ToString
+                            Else
+                                合帳_dgv("個人所得", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
+                                合帳_dgv("個人所得1", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
+                            End If
+                        End If
+                    Next
+                    For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
+                        If 合帳_dgv("客戶", I).Value.ToString = 所得名1_dgv("所得", II).Value.ToString Then
+                            If 合帳_dgv("所反", I).Value = False Then
+                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 所得名1_dgv("交割金額", II).Value.ToString
+                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 所得名1_dgv("交割金額", II).Value.ToString
+                            Else
+                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
+                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
+                            End If
+                        End If
+                    Next
+                    For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
+                        If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
+                            If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
+                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
+                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
+                            Else
+                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                            End If
+                        End If
+                        If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
+                            If 合帳_dgv("紅反", I).Value = False Then
+                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
+                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
+                            Else
+                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                            End If
+                        End If
+                    Next
+
+                    For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
+                        If 合帳_dgv("客戶", I).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
+                            If 合帳_dgv("所反", I).Value = False Then
+                                合帳_dgv("水差", I).Value = 水差名_dgv("交割金額", II).Value.ToString : 合帳_dgv("水差1", I).Value = 水差名_dgv("交割金額", II).Value.ToString
+                            Else
+                                合帳_dgv("水差", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("水差1", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
+                            End If
+                        End If
+                    Next
+                    For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
+                        If 合帳_dgv("客戶", I).Value.ToString = 水差名1_dgv("水差", II).Value.ToString Then
+                            If 合帳_dgv("所反", I).Value = False Then
+                                合帳_dgv("水差", I).Value = 水差名1_dgv("交割金額", II).Value.ToString : 合帳_dgv("水差1", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                            Else
+                                合帳_dgv("水差", I).Value = Val(水差名1_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("水差1", I).Value = Val(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                            End If
+                        End If
+                    Next
+                    '----------只有下收不要反帳-----------------------------------------------------------------------------------------------------------------
+                    If Val(合帳_dgv.Rows(I).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(I).Cells("應付1").Value) <> 0 Then
+                        合帳_dgv.Rows(I).Cells("應收").Value = Val(合帳_dgv.Rows(I).Cells("應收").Value) * -1
+                        合帳_dgv.Rows(I).Cells("應收1").Value = Val(合帳_dgv.Rows(I).Cells("應收1").Value) * -1
+                        合帳_dgv.Rows(I).Cells("應付").Value = Val(合帳_dgv.Rows(I).Cells("應付").Value) * -1
+                        合帳_dgv.Rows(I).Cells("應付1").Value = Val(合帳_dgv.Rows(I).Cells("應付1").Value) * -1
+                    ElseIf Val(合帳_dgv.Rows(I).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(I).Cells("應付1").Value) = 0 Then
+                        合帳_dgv.Rows(I).Cells("應收").Value = Val(合帳_dgv.Rows(I).Cells("應收").Value) * -1
+                        合帳_dgv.Rows(I).Cells("應收1").Value = Val(合帳_dgv.Rows(I).Cells("應收1").Value) * -1
+                    End If
+                Next
+            End If
+
             If 合帳_dgv.Rows.Count > 0 Then
                 合帳_dgv.Sort(合帳_dgv.Columns("客戶"), System.ComponentModel.ListSortDirection.Descending)
 
             End If
             合帳1_tb.Text = Strings.Format(Val(合帳1_tb.Text), "#,##0")
             手工帳資料自動判斷()
+
+
         End If
     End Sub
-
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 其他操作功能_bt.Click
         If 其他控制 = False Then : 視窗4_pl.Location = New System.Drawing.Point(150, 300) : 視窗4_pl.BringToFront() : 其他控制 = True : Else : 視窗4_pl.SendToBack() : 其他控制 = False : End If
     End Sub
-
+    Private Sub 自動正負反_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 自動正負反_ch.Click
+        If 自動正負反_ch.Checked = True Then
+            MsgBox("啟動系統自動判斷正負反之後，計算量會增加，資料讀取變慢屬正常現象!!")
+            自動正負反_ch.Checked = True : 依電板習慣_ch.Checked = True : 依球版習慣_ch.Checked = False
+        Else
+            MsgBox("去除自動判斷之後系統只會依照就有的正負反紀錄計算!!")
+            自動正負反_ch.Checked = False : 依電板習慣_ch.Checked = False : 依球版習慣_ch.Checked = False
+        End If
+    End Sub
+    Private Sub 依電板習慣_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依電板習慣_ch.Click
+        依電板習慣_ch.Checked = True : 依球版習慣_ch.Checked = False
+    End Sub
+    Private Sub 依球版習慣_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依球版習慣_ch.Click
+        依電板習慣_ch.Checked = False : 依球版習慣_ch.Checked = True
+    End Sub
+    Private Sub 自動調整存檔_bt_Click_1(sender As Object, e As EventArgs) Handles 自動調整存檔_bt.Click
+        SQL_自動正負反存檔() : 合帳_bt.PerformClick()
+    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
             PA8 = 紙帳非前期_dgv.Rows(I).Cells("商品").Value : NN8 = 紙帳非前期_dgv.Rows(I).Cells("交收金額").Value.ToString : SQL_紙帳流水修改()
         Next
         MsgBox("存檔完成!!")
     End Sub
+    Private Sub 報表_bt_Click(sender As Object, e As EventArgs) Handles 報表_bt.Click
+        If 客戶_tb.Text = "" Then
+            MsgBox("沒有選擇客戶資料!!")
+        Else
+            PA49 = "客戶 : " & 客戶_tb.Text & "  " & 開始日期_dtp.Text & " 到 " & 結束日期_dtp.Text
+            For i As Integer = 0 To 1000 : A(i) = "" : B(i) = "" : C(i) = "" : D(i) = "" : F(i) = "" : Next : NN10 = 0
+            For I As Integer = 0 To 上繳合帳_dgv.Rows.Count - 1
+                NN10 += 1 : A(NN10 - 1) = 上繳合帳_dgv.Rows(I).Cells("項次").Value : B(NN10 - 1) = 上繳合帳_dgv.Rows(I).Cells("商品").Value
+                If 上繳合帳_dgv.Columns.Count = 4 Then : C(NN10 - 1) = ""
+                ElseIf 上繳合帳_dgv.Columns.Count = 5 Then : C(NN10 - 1) = 上繳合帳_dgv.Rows(I).Cells("帳號").Value : End If
+                D(NN10 - 1) = "上繳" : F(NN10 - 1) = 上繳合帳_dgv.Rows(I).Cells("應付.").Value
+            Next
+            For I As Integer = 0 To 下收合帳_dgv.Rows.Count - 1
+                NN10 += 1 : A(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("項次").Value : B(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("商品").Value
+                If 下收合帳_dgv.Columns.Count = 4 Then : C(NN10 - 1) = ""
+                ElseIf 下收合帳_dgv.Columns.Count = 5 Then : C(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("帳號").Value
+                ElseIf 下收合帳_dgv.Columns.Count = 6 Then : C(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("客戶").Value : End If
+                D(NN10 - 1) = "下收" : F(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("應收.").Value
+            Next
+            For I As Integer = 0 To 所得合帳2_dgv.Rows.Count - 1
+                NN10 += 1 : A(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("項次").Value : B(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("商品").Value
+                If 所得合帳2_dgv.Columns.Count = 4 Then : C(NN10 - 1) = ""
+                ElseIf 所得合帳2_dgv.Columns.Count = 5 Then : C(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("帳號").Value
+                ElseIf 所得合帳2_dgv.Columns.Count = 6 Then : C(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("客戶").Value : End If
+                D(NN10 - 1) = "所得" : F(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("所得.").Value
+            Next
+            For I As Integer = 0 To 水差合帳_dgv.Rows.Count - 1
+                NN10 += 1 : A(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("項次").Value : B(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("商品").Value
+                If 水差合帳_dgv.Columns.Count = 4 Then : C(NN10 - 1) = ""
+                ElseIf 水差合帳_dgv.Columns.Count = 5 Then : C(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("帳號").Value
+                ElseIf 水差合帳_dgv.Columns.Count = 6 Then : C(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("客戶").Value : End If
+                D(NN10 - 1) = "水差" : F(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("水差.").Value
+            Next
+            For I As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
+                NN10 += 1 : A(NN10 - 1) = I + 1 : B(NN10 - 1) = 紅利整合_dgv.Rows(I).Cells("所得/股東").Value : C(NN10 - 1) = ""
+                D(NN10 - 1) = "紅利計算" : F(NN10 - 1) = 紅利整合_dgv.Rows(I).Cells("紅利收支").Value
+            Next
+            For I As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
+                NN10 += 1 : A(NN10 - 1) = I + 1 : B(NN10 - 1) = 紙帳非前期_dgv.Rows(I).Cells("商品").Value : C(NN10 - 1) = ""
+                D(NN10 - 1) = "紙帳" : F(NN10 - 1) = 紙帳非前期_dgv.Rows(I).Cells("交收金額").Value
+            Next
+            If 紙帳前期_dgv.Rows.Count > 0 Then
+                NN10 += 1 : A(NN10 - 1) = "" : B(NN10 - 1) = 紙帳前期_dgv.Rows(0).Cells("商品").Value : C(NN10 - 1) = ""
+                D(NN10 - 1) = "前期" : F(NN10 - 1) = 紙帳前期_dgv.Rows(0).Cells("交收金額").Value
+            End If
+        End If
+        Dim NH As Integer = 140 + (NN10 * 19)
+        If NH > Screen.PrimaryScreen.Bounds.Height - 60 Then
+            彙總報表預覽.Size = New Size(448, Screen.PrimaryScreen.Bounds.Height - 60) : 彙總報表預覽.Show()
+        Else
+            彙總報表預覽.Size = New Size(448, NH) : 彙總報表預覽.Show()
+        End If
+
+    End Sub
     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
         列印選擇.ShowDialog()
         If 是否PDF = False Then

GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.Designer.vb

         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.日期清單_dgv = New System.Windows.Forms.DataGridView()
         Me.彙總1_dgv = New System.Windows.Forms.DataGridView()
         Me.PictureBox2 = New System.Windows.Forms.PictureBox()
         Me.結果_tb = New System.Windows.Forms.TextBox()
         Me.Label26 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.彙總5_dgv = New System.Windows.Forms.DataGridView()
-        Me.結果2_tb = New System.Windows.Forms.TextBox()
+        Me.A4_P = New System.Windows.Forms.Panel()
         Me.Label18 = New System.Windows.Forms.Label()
-        Me.結果1_tb = New System.Windows.Forms.TextBox()
-        Me.本周周一_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.結果2_tb = New System.Windows.Forms.TextBox()
+        Me.年初_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.A3_P = New System.Windows.Forms.Panel()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.月初_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.結果3_tb = New System.Windows.Forms.TextBox()
+        Me.A2_P = New System.Windows.Forms.Panel()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label14 = New System.Windows.Forms.Label()
+        Me.本周周一_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.結果1_tb = New System.Windows.Forms.TextBox()
+        Me.A1_P = New System.Windows.Forms.Panel()
+        Me.彙總5_dgv = New System.Windows.Forms.DataGridView()
         Me.彙總3_dgv = New System.Windows.Forms.DataGridView()
         Me.周1_ch = New System.Windows.Forms.CheckBox()
         Me.月1_ch = New System.Windows.Forms.CheckBox()
-        Me.月初_dtp = New System.Windows.Forms.DateTimePicker()
-        Me.Label5 = New System.Windows.Forms.Label()
         Me.彙總4_dgv = New System.Windows.Forms.DataGridView()
         Me.大1_tb = New System.Windows.Forms.TextBox()
         Me.六1_tb = New System.Windows.Forms.TextBox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.彙總2_dgv = New System.Windows.Forms.DataGridView()
-        Me.調退實佔_tb = New System.Windows.Forms.TextBox()
-        Me.Label3 = New System.Windows.Forms.Label()
         Me.截圖_bt = New System.Windows.Forms.Button()
         Me.整合_ch = New System.Windows.Forms.CheckBox()
         Me.重新計算_bt = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.年初_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.彙總7_dgv = New System.Windows.Forms.DataGridView()
+        Me.彙總6_dgv = New System.Windows.Forms.DataGridView()
         Me.結束日期1_dtp = New System.Windows.Forms.DateTimePicker()
         Me.股東帳_Ch = New System.Windows.Forms.CheckBox()
+        Me.顯日_ch = New System.Windows.Forms.CheckBox()
+        Me.顯周_ch = New System.Windows.Forms.CheckBox()
+        Me.顯月_ch = New System.Windows.Forms.CheckBox()
+        Me.顯年_ch = New System.Windows.Forms.CheckBox()
         CType(Me.日期清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
+        Me.A4_P.SuspendLayout()
+        Me.A3_P.SuspendLayout()
+        Me.A2_P.SuspendLayout()
+        Me.A1_P.SuspendLayout()
         CType(Me.彙總5_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總3_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總4_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
+        CType(Me.彙總7_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.彙總6_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '日期清單_dgv
         Me.日期清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.日期清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.日期清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.日期清單_dgv.Location = New System.Drawing.Point(4, 26)
+        Me.日期清單_dgv.Location = New System.Drawing.Point(4, 55)
         Me.日期清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.日期清單_dgv.Name = "日期清單_dgv"
         Me.日期清單_dgv.RowHeadersWidth = 4
         Me.日期清單_dgv.RowTemplate.Height = 24
-        Me.日期清單_dgv.Size = New System.Drawing.Size(194, 969)
+        Me.日期清單_dgv.Size = New System.Drawing.Size(194, 590)
         Me.日期清單_dgv.TabIndex = 1767
         '
         '彙總1_dgv
         '結束日期_dtp
         '
         Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.結束日期_dtp.Location = New System.Drawing.Point(224, 4)
+        Me.結束日期_dtp.Location = New System.Drawing.Point(49, 2)
         Me.結束日期_dtp.Name = "結束日期_dtp"
         Me.結束日期_dtp.Size = New System.Drawing.Size(100, 23)
         Me.結束日期_dtp.TabIndex = 1771
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(183, 7)
+        Me.Label1.Location = New System.Drawing.Point(8, 5)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(31, 16)
         Me.Label1.TabIndex = 1772
         '結果_tb
         '
         Me.結果_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果_tb.Location = New System.Drawing.Point(224, 29)
+        Me.結果_tb.Location = New System.Drawing.Point(49, 27)
         Me.結果_tb.Name = "結果_tb"
         Me.結果_tb.Size = New System.Drawing.Size(100, 23)
         Me.結果_tb.TabIndex = 1782
         'Label26
         '
         Me.Label26.AutoSize = True
-        Me.Label26.Location = New System.Drawing.Point(178, 33)
+        Me.Label26.Location = New System.Drawing.Point(3, 31)
         Me.Label26.Name = "Label26"
         Me.Label26.Size = New System.Drawing.Size(43, 16)
         Me.Label26.TabIndex = 1781
         Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.Controls.Add(Me.A4_P)
+        Me.Panel1.Controls.Add(Me.A3_P)
+        Me.Panel1.Controls.Add(Me.A2_P)
+        Me.Panel1.Controls.Add(Me.A1_P)
         Me.Panel1.Controls.Add(Me.彙總5_dgv)
-        Me.Panel1.Controls.Add(Me.結果2_tb)
-        Me.Panel1.Controls.Add(Me.Label18)
-        Me.Panel1.Controls.Add(Me.結果1_tb)
         Me.Panel1.Controls.Add(Me.PictureBox2)
-        Me.Panel1.Controls.Add(Me.結果_tb)
-        Me.Panel1.Controls.Add(Me.結束日期_dtp)
-        Me.Panel1.Controls.Add(Me.本周周一_dtp)
-        Me.Panel1.Controls.Add(Me.Label4)
-        Me.Panel1.Controls.Add(Me.Label1)
-        Me.Panel1.Controls.Add(Me.Label14)
-        Me.Panel1.Controls.Add(Me.Label26)
         Me.Panel1.Location = New System.Drawing.Point(198, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(754, 1001)
+        Me.Panel1.Size = New System.Drawing.Size(918, 651)
         Me.Panel1.TabIndex = 1783
         '
-        '彙總5_dgv
+        'A4_P
         '
-        Me.彙總5_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.彙總5_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.彙總5_dgv.BackgroundColor = System.Drawing.Color.White
-        Me.彙總5_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.彙總5_dgv.Location = New System.Drawing.Point(3, 55)
-        Me.彙總5_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.彙總5_dgv.Name = "彙總5_dgv"
-        Me.彙總5_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.彙總5_dgv.RowTemplate.Height = 24
-        Me.彙總5_dgv.Size = New System.Drawing.Size(747, 940)
-        Me.彙總5_dgv.TabIndex = 1813
+        Me.A4_P.Controls.Add(Me.Label18)
+        Me.A4_P.Controls.Add(Me.結果2_tb)
+        Me.A4_P.Controls.Add(Me.年初_dtp)
+        Me.A4_P.Controls.Add(Me.Label15)
+        Me.A4_P.Location = New System.Drawing.Point(761, 2)
+        Me.A4_P.Name = "A4_P"
+        Me.A4_P.Size = New System.Drawing.Size(153, 52)
+        Me.A4_P.TabIndex = 1822
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(3, 31)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(43, 16)
+        Me.Label18.TabIndex = 1815
+        Me.Label18.Text = "年總結"
         '
         '結果2_tb
         '
         Me.結果2_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果2_tb.Location = New System.Drawing.Point(650, 29)
+        Me.結果2_tb.Location = New System.Drawing.Point(48, 27)
         Me.結果2_tb.Name = "結果2_tb"
         Me.結果2_tb.Size = New System.Drawing.Size(100, 23)
         Me.結果2_tb.TabIndex = 1816
         Me.結果2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
-        'Label18
+        '年初_dtp
         '
-        Me.Label18.AutoSize = True
-        Me.Label18.Location = New System.Drawing.Point(647, 11)
-        Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(43, 16)
-        Me.Label18.TabIndex = 1815
-        Me.Label18.Text = "年結果"
+        Me.年初_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.年初_dtp.Location = New System.Drawing.Point(48, 2)
+        Me.年初_dtp.Name = "年初_dtp"
+        Me.年初_dtp.Size = New System.Drawing.Size(100, 23)
+        Me.年初_dtp.TabIndex = 1817
         '
-        '結果1_tb
+        'Label15
         '
-        Me.結果1_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果1_tb.Location = New System.Drawing.Point(432, 29)
-        Me.結果1_tb.Name = "結果1_tb"
-        Me.結果1_tb.Size = New System.Drawing.Size(100, 23)
-        Me.結果1_tb.TabIndex = 1812
-        Me.結果1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(7, 5)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(31, 16)
+        Me.Label15.TabIndex = 1818
+        Me.Label15.Text = "本年"
         '
-        '本周周一_dtp
+        'A3_P
         '
-        Me.本周周一_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.本周周一_dtp.Location = New System.Drawing.Point(432, 4)
-        Me.本周周一_dtp.Name = "本周周一_dtp"
-        Me.本周周一_dtp.Size = New System.Drawing.Size(100, 23)
-        Me.本周周一_dtp.TabIndex = 1783
+        Me.A3_P.Controls.Add(Me.Label3)
+        Me.A3_P.Controls.Add(Me.Label5)
+        Me.A3_P.Controls.Add(Me.月初_dtp)
+        Me.A3_P.Controls.Add(Me.結果3_tb)
+        Me.A3_P.Location = New System.Drawing.Point(579, 2)
+        Me.A3_P.Name = "A3_P"
+        Me.A3_P.Size = New System.Drawing.Size(153, 52)
+        Me.A3_P.TabIndex = 1821
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(3, 30)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
+        Me.Label3.TabIndex = 1783
+        Me.Label3.Text = "月總結"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(8, 5)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(31, 16)
+        Me.Label5.TabIndex = 1787
+        Me.Label5.Text = "本月"
+        '
+        '月初_dtp
+        '
+        Me.月初_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.月初_dtp.Location = New System.Drawing.Point(47, 2)
+        Me.月初_dtp.Name = "月初_dtp"
+        Me.月初_dtp.Size = New System.Drawing.Size(100, 23)
+        Me.月初_dtp.TabIndex = 1786
+        '
+        '結果3_tb
+        '
+        Me.結果3_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.結果3_tb.Location = New System.Drawing.Point(47, 27)
+        Me.結果3_tb.Name = "結果3_tb"
+        Me.結果3_tb.Size = New System.Drawing.Size(100, 23)
+        Me.結果3_tb.TabIndex = 1784
+        Me.結果3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'A2_P
+        '
+        Me.A2_P.Controls.Add(Me.Label4)
+        Me.A2_P.Controls.Add(Me.Label14)
+        Me.A2_P.Controls.Add(Me.本周周一_dtp)
+        Me.A2_P.Controls.Add(Me.結果1_tb)
+        Me.A2_P.Location = New System.Drawing.Point(397, 2)
+        Me.A2_P.Name = "A2_P"
+        Me.A2_P.Size = New System.Drawing.Size(153, 52)
+        Me.A2_P.TabIndex = 1820
         '
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(392, 7)
+        Me.Label4.Location = New System.Drawing.Point(7, 5)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(31, 16)
         Me.Label4.TabIndex = 1784
         'Label14
         '
         Me.Label14.AutoSize = True
-        Me.Label14.Location = New System.Drawing.Point(387, 33)
+        Me.Label14.Location = New System.Drawing.Point(3, 32)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(43, 16)
         Me.Label14.TabIndex = 1811
         Me.Label14.Text = "周總結"
         '
+        '本周周一_dtp
+        '
+        Me.本周周一_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.本周周一_dtp.Location = New System.Drawing.Point(47, 2)
+        Me.本周周一_dtp.Name = "本周周一_dtp"
+        Me.本周周一_dtp.Size = New System.Drawing.Size(100, 23)
+        Me.本周周一_dtp.TabIndex = 1783
+        '
+        '結果1_tb
+        '
+        Me.結果1_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.結果1_tb.Location = New System.Drawing.Point(48, 27)
+        Me.結果1_tb.Name = "結果1_tb"
+        Me.結果1_tb.Size = New System.Drawing.Size(100, 23)
+        Me.結果1_tb.TabIndex = 1812
+        Me.結果1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'A1_P
+        '
+        Me.A1_P.Controls.Add(Me.Label1)
+        Me.A1_P.Controls.Add(Me.Label26)
+        Me.A1_P.Controls.Add(Me.結束日期_dtp)
+        Me.A1_P.Controls.Add(Me.結果_tb)
+        Me.A1_P.Location = New System.Drawing.Point(215, 2)
+        Me.A1_P.Name = "A1_P"
+        Me.A1_P.Size = New System.Drawing.Size(153, 52)
+        Me.A1_P.TabIndex = 1819
+        '
+        '彙總5_dgv
+        '
+        Me.彙總5_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.彙總5_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總5_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.彙總5_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總5_dgv.Location = New System.Drawing.Point(3, 55)
+        Me.彙總5_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.彙總5_dgv.Name = "彙總5_dgv"
+        Me.彙總5_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.彙總5_dgv.RowTemplate.Height = 24
+        Me.彙總5_dgv.Size = New System.Drawing.Size(911, 590)
+        Me.彙總5_dgv.TabIndex = 1813
+        '
         '彙總3_dgv
         '
         Me.彙總3_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         Me.周1_ch.AutoSize = True
         Me.周1_ch.Checked = True
         Me.周1_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.周1_ch.Location = New System.Drawing.Point(72, 450)
+        Me.周1_ch.Location = New System.Drawing.Point(72, 503)
         Me.周1_ch.Name = "周1_ch"
         Me.周1_ch.Size = New System.Drawing.Size(38, 20)
         Me.周1_ch.TabIndex = 1788
         '月1_ch
         '
         Me.月1_ch.AutoSize = True
-        Me.月1_ch.Location = New System.Drawing.Point(116, 450)
+        Me.月1_ch.Location = New System.Drawing.Point(116, 503)
         Me.月1_ch.Name = "月1_ch"
         Me.月1_ch.Size = New System.Drawing.Size(38, 20)
         Me.月1_ch.TabIndex = 1789
         Me.月1_ch.Text = "月"
         Me.月1_ch.UseVisualStyleBackColor = True
         '
-        '月初_dtp
-        '
-        Me.月初_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.月初_dtp.Location = New System.Drawing.Point(55, 476)
-        Me.月初_dtp.Name = "月初_dtp"
-        Me.月初_dtp.Size = New System.Drawing.Size(100, 23)
-        Me.月初_dtp.TabIndex = 1786
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(18, 481)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(31, 16)
-        Me.Label5.TabIndex = 1787
-        Me.Label5.Text = "月初"
-        '
         '彙總4_dgv
         '
         Me.彙總4_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         '大1_tb
         '
         Me.大1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.大1_tb.Location = New System.Drawing.Point(54, 305)
+        Me.大1_tb.Location = New System.Drawing.Point(54, 397)
         Me.大1_tb.Name = "大1_tb"
         Me.大1_tb.Size = New System.Drawing.Size(100, 23)
         Me.大1_tb.TabIndex = 1820
         '六1_tb
         '
         Me.六1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.六1_tb.Location = New System.Drawing.Point(54, 334)
+        Me.六1_tb.Location = New System.Drawing.Point(54, 426)
         Me.六1_tb.Name = "六1_tb"
         Me.六1_tb.Size = New System.Drawing.Size(100, 23)
         Me.六1_tb.TabIndex = 1818
         '加1_tb
         '
         Me.加1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.加1_tb.Location = New System.Drawing.Point(54, 363)
+        Me.加1_tb.Location = New System.Drawing.Point(54, 455)
         Me.加1_tb.Name = "加1_tb"
         Me.加1_tb.Size = New System.Drawing.Size(100, 23)
         Me.加1_tb.TabIndex = 1816
         '五1_tb
         '
         Me.五1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.五1_tb.Location = New System.Drawing.Point(54, 392)
+        Me.五1_tb.Location = New System.Drawing.Point(54, 479)
         Me.五1_tb.Name = "五1_tb"
         Me.五1_tb.Size = New System.Drawing.Size(100, 23)
         Me.五1_tb.TabIndex = 1814
         '
         '大_tb
         '
-        Me.大_tb.Location = New System.Drawing.Point(55, 200)
+        Me.大_tb.Location = New System.Drawing.Point(55, 292)
         Me.大_tb.Name = "大_tb"
         Me.大_tb.Size = New System.Drawing.Size(100, 23)
         Me.大_tb.TabIndex = 1798
         '
         '六_tb
         '
-        Me.六_tb.Location = New System.Drawing.Point(54, 226)
+        Me.六_tb.Location = New System.Drawing.Point(54, 318)
         Me.六_tb.Name = "六_tb"
         Me.六_tb.Size = New System.Drawing.Size(100, 23)
         Me.六_tb.TabIndex = 1796
         '
         '加_tb
         '
-        Me.加_tb.Location = New System.Drawing.Point(54, 251)
+        Me.加_tb.Location = New System.Drawing.Point(54, 343)
         Me.加_tb.Name = "加_tb"
         Me.加_tb.Size = New System.Drawing.Size(100, 23)
         Me.加_tb.TabIndex = 1794
         '
         '五_tb
         '
-        Me.五_tb.Location = New System.Drawing.Point(54, 276)
+        Me.五_tb.Location = New System.Drawing.Point(54, 368)
         Me.五_tb.Name = "五_tb"
         Me.五_tb.Size = New System.Drawing.Size(100, 23)
         Me.五_tb.TabIndex = 1792
         '
         Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(10, 308)
+        Me.Label10.Location = New System.Drawing.Point(10, 400)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(43, 16)
         Me.Label10.TabIndex = 1819
         '
         Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(11, 337)
+        Me.Label11.Location = New System.Drawing.Point(11, 429)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(43, 16)
         Me.Label11.TabIndex = 1817
         '
         Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(10, 366)
+        Me.Label12.Location = New System.Drawing.Point(10, 458)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(43, 16)
         Me.Label12.TabIndex = 1815
         '
         Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(25, 395)
+        Me.Label13.Location = New System.Drawing.Point(25, 482)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(28, 16)
         Me.Label13.TabIndex = 1813
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(11, 203)
+        Me.Label9.Location = New System.Drawing.Point(11, 295)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(43, 16)
         Me.Label9.TabIndex = 1797
         'Label8
         '
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(11, 229)
+        Me.Label8.Location = New System.Drawing.Point(11, 321)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(43, 16)
         Me.Label8.TabIndex = 1795
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(10, 254)
+        Me.Label7.Location = New System.Drawing.Point(10, 346)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(43, 16)
         Me.Label7.TabIndex = 1793
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(25, 279)
+        Me.Label6.Location = New System.Drawing.Point(25, 371)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(28, 16)
         Me.Label6.TabIndex = 1791
         Me.彙總2_dgv.Size = New System.Drawing.Size(78, 61)
         Me.彙總2_dgv.TabIndex = 1785
         '
-        '調退實佔_tb
-        '
-        Me.調退實佔_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.調退實佔_tb.Location = New System.Drawing.Point(66, 507)
-        Me.調退實佔_tb.Name = "調退實佔_tb"
-        Me.調退實佔_tb.Size = New System.Drawing.Size(100, 23)
-        Me.調退實佔_tb.TabIndex = 1784
-        Me.調退實佔_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'Label3
-        '
-        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(9, 510)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(55, 16)
-        Me.Label3.TabIndex = 1783
-        Me.Label3.Text = "調退實佔"
-        '
         '截圖_bt
         '
         Me.截圖_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         'Panel2
         '
         Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.彙總7_dgv)
+        Me.Panel2.Controls.Add(Me.彙總6_dgv)
         Me.Panel2.Controls.Add(Me.彙總2_dgv)
-        Me.Panel2.Controls.Add(Me.年初_dtp)
         Me.Panel2.Controls.Add(Me.Label13)
         Me.Panel2.Controls.Add(Me.加1_tb)
         Me.Panel2.Controls.Add(Me.彙總3_dgv)
         Me.Panel2.Controls.Add(Me.周1_ch)
         Me.Panel2.Controls.Add(Me.結束日期1_dtp)
         Me.Panel2.Controls.Add(Me.月1_ch)
-        Me.Panel2.Controls.Add(Me.月初_dtp)
         Me.Panel2.Controls.Add(Me.彙總1_dgv)
         Me.Panel2.Controls.Add(Me.Label11)
         Me.Panel2.Controls.Add(Me.彙總4_dgv)
-        Me.Panel2.Controls.Add(Me.Label5)
-        Me.Panel2.Controls.Add(Me.調退實佔_tb)
-        Me.Panel2.Controls.Add(Me.Label3)
         Me.Panel2.Controls.Add(Me.整合_ch)
         Me.Panel2.Controls.Add(Me.Label10)
         Me.Panel2.Controls.Add(Me.天_ch)
         Me.Panel2.TabIndex = 1786
         Me.Panel2.Visible = False
         '
-        '年初_dtp
+        '彙總7_dgv
         '
-        Me.年初_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.年初_dtp.Location = New System.Drawing.Point(54, 421)
-        Me.年初_dtp.Name = "年初_dtp"
-        Me.年初_dtp.Size = New System.Drawing.Size(100, 23)
-        Me.年初_dtp.TabIndex = 1817
+        Me.彙總7_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.彙總7_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總7_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.彙總7_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總7_dgv.Location = New System.Drawing.Point(83, 200)
+        Me.彙總7_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.彙總7_dgv.Name = "彙總7_dgv"
+        Me.彙總7_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.彙總7_dgv.RowTemplate.Height = 24
+        Me.彙總7_dgv.Size = New System.Drawing.Size(78, 61)
+        Me.彙總7_dgv.TabIndex = 1822
+        '
+        '彙總6_dgv
+        '
+        Me.彙總6_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.彙總6_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總6_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.彙總6_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總6_dgv.Location = New System.Drawing.Point(3, 200)
+        Me.彙總6_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.彙總6_dgv.Name = "彙總6_dgv"
+        Me.彙總6_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.彙總6_dgv.RowTemplate.Height = 24
+        Me.彙總6_dgv.Size = New System.Drawing.Size(78, 61)
+        Me.彙總6_dgv.TabIndex = 1821
         '
         '結束日期1_dtp
         '
         Me.股東帳_Ch.Text = "股東帳"
         Me.股東帳_Ch.UseVisualStyleBackColor = True
         '
+        '顯日_ch
+        '
+        Me.顯日_ch.AutoSize = True
+        Me.顯日_ch.Checked = True
+        Me.顯日_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.顯日_ch.Location = New System.Drawing.Point(10, 29)
+        Me.顯日_ch.Name = "顯日_ch"
+        Me.顯日_ch.Size = New System.Drawing.Size(38, 20)
+        Me.顯日_ch.TabIndex = 1788
+        Me.顯日_ch.Text = "日"
+        Me.顯日_ch.UseVisualStyleBackColor = True
+        '
+        '顯周_ch
+        '
+        Me.顯周_ch.AutoSize = True
+        Me.顯周_ch.Checked = True
+        Me.顯周_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.顯周_ch.Location = New System.Drawing.Point(57, 29)
+        Me.顯周_ch.Name = "顯周_ch"
+        Me.顯周_ch.Size = New System.Drawing.Size(38, 20)
+        Me.顯周_ch.TabIndex = 1789
+        Me.顯周_ch.Text = "周"
+        Me.顯周_ch.UseVisualStyleBackColor = True
+        '
+        '顯月_ch
+        '
+        Me.顯月_ch.AutoSize = True
+        Me.顯月_ch.Location = New System.Drawing.Point(104, 29)
+        Me.顯月_ch.Name = "顯月_ch"
+        Me.顯月_ch.Size = New System.Drawing.Size(38, 20)
+        Me.顯月_ch.TabIndex = 1790
+        Me.顯月_ch.Text = "月"
+        Me.顯月_ch.UseVisualStyleBackColor = True
+        '
+        '顯年_ch
+        '
+        Me.顯年_ch.AutoSize = True
+        Me.顯年_ch.Location = New System.Drawing.Point(151, 29)
+        Me.顯年_ch.Name = "顯年_ch"
+        Me.顯年_ch.Size = New System.Drawing.Size(38, 20)
+        Me.顯年_ch.TabIndex = 1791
+        Me.顯年_ch.Text = "年"
+        Me.顯年_ch.UseVisualStyleBackColor = True
+        '
         '後台帳務彙總結算表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(953, 1001)
+        Me.ClientSize = New System.Drawing.Size(1117, 651)
+        Me.Controls.Add(Me.顯年_ch)
+        Me.Controls.Add(Me.顯日_ch)
+        Me.Controls.Add(Me.顯周_ch)
+        Me.Controls.Add(Me.顯月_ch)
         Me.Controls.Add(Me.股東帳_Ch)
         Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.重新計算_bt)
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
-        Me.Panel1.PerformLayout()
+        Me.A4_P.ResumeLayout(False)
+        Me.A4_P.PerformLayout()
+        Me.A3_P.ResumeLayout(False)
+        Me.A3_P.PerformLayout()
+        Me.A2_P.ResumeLayout(False)
+        Me.A2_P.PerformLayout()
+        Me.A1_P.ResumeLayout(False)
+        Me.A1_P.PerformLayout()
         CType(Me.彙總5_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總3_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總4_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
+        CType(Me.彙總7_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.彙總6_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents Label26 As Label
     Friend WithEvents 截圖_bt As Button
     Friend WithEvents 整合_ch As CheckBox
-    Friend WithEvents 調退實佔_tb As TextBox
+    Friend WithEvents 結果3_tb As TextBox
     Friend WithEvents Label3 As Label
     Friend WithEvents 重新計算_bt As Button
     Friend WithEvents 股東帳_Ch As CheckBox
     Friend WithEvents Label18 As Label
     Friend WithEvents Panel2 As Panel
     Friend WithEvents 年初_dtp As DateTimePicker
+    Friend WithEvents 顯日_ch As CheckBox
+    Friend WithEvents 顯周_ch As CheckBox
+    Friend WithEvents 顯月_ch As CheckBox
+    Friend WithEvents 顯年_ch As CheckBox
+    Friend WithEvents A4_P As Panel
+    Friend WithEvents Label15 As Label
+    Friend WithEvents A3_P As Panel
+    Friend WithEvents A2_P As Panel
+    Friend WithEvents A1_P As Panel
+    Friend WithEvents 彙總6_dgv As DataGridView
+    Friend WithEvents 彙總7_dgv As DataGridView
 End Class

GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.vb

         For i As Integer = 0 To 日期清單_dgv.Rows.Count - 1 : 日期清單_dgv("資料", i).Value = 數量 : 數量 -= 1 : Next
     End Sub
     Private Sub Set_流水帳清單3()
+        '--------日--------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim ds5 As New DataSet
         彙總1_dgv.DataSource = Nothing : ds5.Clear() : 彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         彙總1_dgv.ColumnHeadersHeight = 25 : 彙總1_dgv.AllowUserToAddRows = False
             彙總1_dgv.Rows(i).Cells("項次").Value = i + 1
         Next
 
+        '--------周--------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim ds6 As New DataSet
         彙總2_dgv.DataSource = Nothing : ds6.Clear() : 彙總2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         彙總2_dgv.ColumnHeadersHeight = 25 : 彙總2_dgv.AllowUserToAddRows = False
-        If 周1_ch.Checked = True Then : PA16 = Strings.Format(本周周一_dtp.Value, "yyyy-MM-dd") : PA17 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
-        Else : PA16 = Strings.Format(月初_dtp.Value, "yyyy-MM-dd") : PA17 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") : End If
+        PA16 = Strings.Format(本周周一_dtp.Value, "yyyy-MM-dd") : PA17 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
         If 股東帳_Ch.Checked = True Then : SQL2 = " And (後台商客基本資料表.自訂 = 1)" : Else : SQL2 = "" : End If
         SQL_後台彙總讀取2()
 
             彙總2_dgv.Rows(i).Cells("項次").Value = i + 1
         Next
 
+        '--------月--------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        Dim ds10 As New DataSet
+        彙總6_dgv.DataSource = Nothing : ds10.Clear() : 彙總6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總6_dgv.ColumnHeadersHeight = 25 : 彙總6_dgv.AllowUserToAddRows = False
+        PA16 = Strings.Format(月初_dtp.Value, "yyyy-MM-dd") : PA17 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
+        If 股東帳_Ch.Checked = True Then : SQL2 = " And (後台商客基本資料表.自訂 = 1)" : Else : SQL2 = "" : End If
+        SQL_後台彙總讀取2()
+
+        da.Fill(ds10) : 彙總6_dgv.DataSource = ds10.Tables(0) : conn.Close()
+        彙總6_dgv.Columns("網址").Visible = False : 彙總6_dgv.Columns("排序").Visible = False : 彙總6_dgv.Columns("帳號").Visible = False : 彙總6_dgv.Columns("項次").FillWeight = 40
+        彙總6_dgv.Columns("商品").FillWeight = 80 : 彙總6_dgv.Columns("系統").FillWeight = 40 : 彙總6_dgv.Columns("虛量").Visible = False : 彙總6_dgv.Columns("實量").FillWeight = 90
+        彙總6_dgv.Columns("貢獻額").Visible = False : 彙總6_dgv.Columns("中獎").Visible = False : 彙總6_dgv.Columns("輸贏").Visible = False : 彙總6_dgv.Columns("退水").Visible = False
+        彙總6_dgv.Columns("結果").FillWeight = 90 : 彙總6_dgv.Columns("移轉").Visible = False : 彙總6_dgv.Columns("調退實佔").Visible = False
+
+        彙總6_dgv.Columns("虛量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總6_dgv.Columns("實量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總6_dgv.Columns("退水").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總6_dgv.Columns("中獎").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總6_dgv.Columns("輸贏").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總6_dgv.Columns("貢獻額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總6_dgv.Columns("結果").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總6_dgv.Columns("移轉").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總6_dgv.Columns("調退實佔").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        彙總6_dgv.Columns("虛量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總6_dgv.Columns("實量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總6_dgv.Columns("退水").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總6_dgv.Columns("中獎").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總6_dgv.Columns("輸贏").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總6_dgv.Columns("貢獻額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總6_dgv.Columns("結果").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總6_dgv.Columns("移轉").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總6_dgv.Columns("調退實佔").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        For i As Integer = 0 To 彙總6_dgv.Rows.Count - 1
+            If 彙總6_dgv.Rows(i).Cells("調退實佔").Value.ToString = "" Then : 彙總6_dgv.Rows(i).Cells("調退實佔").Value = "0" : End If
+            彙總6_dgv.Rows(i).Cells("結果").Value = Strings.Format(CLng(彙總6_dgv.Rows(i).Cells("排序").Value.ToString), "#,##0")
+            彙總6_dgv.Rows(i).Cells("項次").Value = i + 1
+        Next
+
+        '--------日--------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim ds7 As New DataSet
         彙總3_dgv.DataSource = Nothing : ds7.Clear() : 彙總3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         彙總3_dgv.ColumnHeadersHeight = 25 : 彙總3_dgv.AllowUserToAddRows = False
         If CLng(六_tb.Text) <= 0 Then : 六_tb.ForeColor = Color.Red : Else : 六_tb.ForeColor = Color.Blue : End If : 六_tb.Text = Strings.Format(CLng(六_tb.Text), "#,##0")
         If CLng(大_tb.Text) <= 0 Then : 大_tb.ForeColor = Color.Red : Else : 大_tb.ForeColor = Color.Blue : End If : 大_tb.Text = Strings.Format(CLng(大_tb.Text), "#,##0")
 
+        '--------周--------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim ds8 As New DataSet
         彙總4_dgv.DataSource = Nothing : ds8.Clear() : 彙總4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         彙總4_dgv.ColumnHeadersHeight = 25 : 彙總4_dgv.AllowUserToAddRows = False
-        If 周1_ch.Checked = True Then : PA16 = Strings.Format(本周周一_dtp.Value, "yyyy-MM-dd") : PA17 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
-        Else : PA16 = Strings.Format(月初_dtp.Value, "yyyy-MM-dd") : PA17 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") : End If
+        PA16 = Strings.Format(本周周一_dtp.Value, "yyyy-MM-dd") : PA17 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
         If 股東帳_Ch.Checked = True Then : SQL2 = " And (後台商客基本資料表.自訂 = 1)" : Else : SQL2 = "" : End If
-        If 周1_ch.Checked = True Then : SQL_後台彙總讀取3() : Else : SQL_後台彙總讀取4() : End If
+        SQL_後台彙總讀取3()
 
         da.Fill(ds8) : 彙總4_dgv.DataSource = ds8.Tables(0) : conn.Close()
         彙總4_dgv.Columns("排序").Visible = False
         彙總4_dgv.Columns("項次").FillWeight = 40 : 彙總4_dgv.Columns("商品").FillWeight = 80 : 彙總4_dgv.Columns("系統").FillWeight = 40
-        If 周1_ch.Checked = True Then
-            彙總4_dgv.Columns("總量-周").FillWeight = 80 : 彙總4_dgv.Columns("結果-周").FillWeight = 80 : 彙總4_dgv.Columns("539-周").Visible = False
-            彙總4_dgv.Columns("加州彩-周").Visible = False : 彙總4_dgv.Columns("六合彩-周").Visible = False : 彙總4_dgv.Columns("大樂透-周").Visible = False
-        Else
-            彙總4_dgv.Columns("總量-月").FillWeight = 80 : 彙總4_dgv.Columns("結果-月").FillWeight = 80 : 彙總4_dgv.Columns("539-月").Visible = False
-            彙總4_dgv.Columns("加州彩-月").Visible = False : 彙總4_dgv.Columns("六合彩-月").Visible = False : 彙總4_dgv.Columns("大樂透-月").Visible = False
-        End If
+        彙總4_dgv.Columns("總量-周").FillWeight = 80 : 彙總4_dgv.Columns("結果-周").FillWeight = 80 : 彙總4_dgv.Columns("539-周").Visible = False
+        彙總4_dgv.Columns("加州彩-周").Visible = False : 彙總4_dgv.Columns("六合彩-周").Visible = False : 彙總4_dgv.Columns("大樂透-周").Visible = False
 
-        If 周1_ch.Checked = True Then
-            彙總4_dgv.Columns("總量-周").DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns("結果-周").DefaultCellStyle.Format = "#,##0"
-            彙總4_dgv.Columns("539-周").DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns("加州彩-周").DefaultCellStyle.Format = "#,##0"
-            彙總4_dgv.Columns("六合彩-周").DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns("大樂透-周").DefaultCellStyle.Format = "#,##0"
-
-            彙總4_dgv.Columns("總量-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("結果-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("539-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("加州彩-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("六合彩-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("大樂透-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-
-            彙總4_dgv.Columns("總量-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("結果-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("539-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("加州彩-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("六合彩-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("大樂透-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        Else
-            彙總4_dgv.Columns("總量-月").DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns("結果-月").DefaultCellStyle.Format = "#,##0"
-            彙總4_dgv.Columns("539-月").DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns("加州彩-月").DefaultCellStyle.Format = "#,##0"
-            彙總4_dgv.Columns("六合彩-月").DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns("大樂透-月").DefaultCellStyle.Format = "#,##0"
-
-            彙總4_dgv.Columns("總量-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("結果-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("539-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("加州彩-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("六合彩-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("大樂透-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-
-            彙總4_dgv.Columns("總量-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("結果-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("539-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("加州彩-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("六合彩-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            彙總4_dgv.Columns("大樂透-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        End If
+        彙總4_dgv.Columns("總量-周").DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns("結果-周").DefaultCellStyle.Format = "#,##0"
+        彙總4_dgv.Columns("539-周").DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns("加州彩-周").DefaultCellStyle.Format = "#,##0"
+        彙總4_dgv.Columns("六合彩-周").DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns("大樂透-周").DefaultCellStyle.Format = "#,##0"
+
+        彙總4_dgv.Columns("總量-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("結果-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("539-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("加州彩-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("六合彩-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("大樂透-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        彙總4_dgv.Columns("總量-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("結果-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("539-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("加州彩-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("六合彩-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總4_dgv.Columns("大樂透-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
         結果1_tb.Text = "0" : 五1_tb.Text = "0" : 加1_tb.Text = "0" : 六1_tb.Text = "0" : 大1_tb.Text = "0"
         For i As Integer = 0 To 彙總4_dgv.Rows.Count - 1
-            If 周1_ch.Checked = True Then
-                彙總4_dgv.Rows(i).Cells("總量-周").Value = 0 : 彙總4_dgv.Rows(i).Cells("結果-周").Value = 0 : 彙總4_dgv.Rows(i).Cells("539-周").Value = 0
-                彙總4_dgv.Rows(i).Cells("加州彩-周").Value = 0 : 彙總4_dgv.Rows(i).Cells("六合彩-周").Value = 0 : 彙總4_dgv.Rows(i).Cells("大樂透-周").Value = 0
-                For ii As Integer = 0 To 彙總2_dgv.Rows.Count - 1
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+            彙總4_dgv.Rows(i).Cells("總量-周").Value = 0 : 彙總4_dgv.Rows(i).Cells("結果-周").Value = 0 : 彙總4_dgv.Rows(i).Cells("539-周").Value = 0
+            彙總4_dgv.Rows(i).Cells("加州彩-周").Value = 0 : 彙總4_dgv.Rows(i).Cells("六合彩-周").Value = 0 : 彙總4_dgv.Rows(i).Cells("大樂透-周").Value = 0
+            For ii As Integer = 0 To 彙總2_dgv.Rows.Count - 1
+                If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                        彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "全" Then
-                        彙總4_dgv.Rows(i).Cells("總量-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("貢獻額").Value)
-                        彙總4_dgv.Rows(i).Cells("結果-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
-                       彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "五" Then
-                        彙總4_dgv.Rows(i).Cells("539-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
-                       彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "加" Then
-                        彙總4_dgv.Rows(i).Cells("加州彩-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
-                       彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "六" Then
-                        彙總4_dgv.Rows(i).Cells("六合彩-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
-                       彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "大" Then
-                        彙總4_dgv.Rows(i).Cells("大樂透-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                Next
-                結果1_tb.Text = CLng(結果1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("結果-周").Value.ToString)
-                五1_tb.Text = CLng(五1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("539-周").Value.ToString)
-                加1_tb.Text = CLng(加1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("加州彩-周").Value.ToString)
-                六1_tb.Text = CLng(六1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("六合彩-周").Value.ToString)
-                大1_tb.Text = CLng(大1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("大樂透-周").Value.ToString)
-            Else
-                彙總4_dgv.Rows(i).Cells("總量-月").Value = 0 : 彙總4_dgv.Rows(i).Cells("結果-月").Value = 0 : 彙總4_dgv.Rows(i).Cells("539-月").Value = 0
-                彙總4_dgv.Rows(i).Cells("加州彩-月").Value = 0 : 彙總4_dgv.Rows(i).Cells("六合彩-月").Value = 0 : 彙總4_dgv.Rows(i).Cells("大樂透-月").Value = 0
-                For ii As Integer = 0 To 彙總2_dgv.Rows.Count - 1
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
-                       彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "全" Then
-                        彙總4_dgv.Rows(i).Cells("總量-月").Value = CDbl(彙總2_dgv.Rows(ii).Cells("貢獻額").Value)
-                        彙總4_dgv.Rows(i).Cells("結果-月").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+                    彙總4_dgv.Rows(i).Cells("總量-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("貢獻額").Value)
+                    彙總4_dgv.Rows(i).Cells("結果-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
+                End If
+                If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                        彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "五" Then
-                        彙總4_dgv.Rows(i).Cells("539-月").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+                    彙總4_dgv.Rows(i).Cells("539-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
+                End If
+                If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                        彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "加" Then
-                        彙總4_dgv.Rows(i).Cells("加州彩-月").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+                    彙總4_dgv.Rows(i).Cells("加州彩-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
+                End If
+                If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                        彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "六" Then
-                        彙總4_dgv.Rows(i).Cells("六合彩-月").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                    If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+                    彙總4_dgv.Rows(i).Cells("六合彩-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
+                End If
+                If 彙總4_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總2_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                        彙總2_dgv.Rows(ii).Cells("類別").Value.ToString = "大" Then
-                        彙總4_dgv.Rows(i).Cells("大樂透-月").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
-                    End If
-                Next
-                結果1_tb.Text = CLng(結果1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("結果-月").Value.ToString)
-                五1_tb.Text = CLng(五1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("539-月").Value.ToString)
-                加1_tb.Text = CLng(加1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("加州彩-月").Value.ToString)
-                六1_tb.Text = CLng(六1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("六合彩-月").Value.ToString)
-                大1_tb.Text = CLng(大1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("大樂透-月").Value.ToString)
-            End If
+                    彙總4_dgv.Rows(i).Cells("大樂透-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
+                End If
+            Next
+            結果1_tb.Text = CLng(結果1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("結果-周").Value.ToString)
+            五1_tb.Text = CLng(五1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("539-周").Value.ToString)
+            加1_tb.Text = CLng(加1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("加州彩-周").Value.ToString)
+            六1_tb.Text = CLng(六1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("六合彩-周").Value.ToString)
+            大1_tb.Text = CLng(大1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("大樂透-周").Value.ToString)
         Next
 
         If CLng(結果1_tb.Text) <= 0 Then : 結果1_tb.ForeColor = Color.Red : Else : 結果1_tb.ForeColor = Color.Blue : End If : 結果1_tb.Text = Strings.Format(CLng(結果1_tb.Text), "#,##0")
         If CLng(六1_tb.Text) <= 0 Then : 六1_tb.ForeColor = Color.Red : Else : 六1_tb.ForeColor = Color.Blue : End If : 六1_tb.Text = Strings.Format(CLng(六1_tb.Text), "#,##0")
         If CLng(大1_tb.Text) <= 0 Then : 大1_tb.ForeColor = Color.Red : Else : 大1_tb.ForeColor = Color.Blue : End If : 大1_tb.Text = Strings.Format(CLng(大1_tb.Text), "#,##0")
 
-        If 周1_ch.Checked = True Then : 彙總4_dgv.Sort(彙總4_dgv.Columns("結果-周"), System.ComponentModel.ListSortDirection.Descending)
-        Else : 彙總4_dgv.Sort(彙總4_dgv.Columns("結果-月"), System.ComponentModel.ListSortDirection.Descending) : End If
+        彙總4_dgv.Sort(彙總4_dgv.Columns("結果-周"), System.ComponentModel.ListSortDirection.Descending)
         For i As Integer = 0 To 彙總4_dgv.Rows.Count - 1 : 彙總4_dgv.Rows(i).Cells("項次").Value = i + 1 : Next
 
+        '--------月--------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        Dim ds11 As New DataSet
+        彙總7_dgv.DataSource = Nothing : ds11.Clear() : 彙總7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總7_dgv.ColumnHeadersHeight = 25 : 彙總7_dgv.AllowUserToAddRows = False
+        PA16 = Strings.Format(月初_dtp.Value, "yyyy-MM-dd") : PA17 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
+        If 股東帳_Ch.Checked = True Then : SQL2 = " And (後台商客基本資料表.自訂 = 1)" : Else : SQL2 = "" : End If
+        SQL_後台彙總讀取4()
+
+        da.Fill(ds11) : 彙總7_dgv.DataSource = ds11.Tables(0) : conn.Close()
+        彙總7_dgv.Columns("排序").Visible = False
+        彙總7_dgv.Columns("項次").FillWeight = 40 : 彙總7_dgv.Columns("商品").FillWeight = 80 : 彙總7_dgv.Columns("系統").FillWeight = 40
+        彙總7_dgv.Columns("總量-月").FillWeight = 80 : 彙總7_dgv.Columns("結果-月").FillWeight = 80 : 彙總7_dgv.Columns("539-月").Visible = False
+        彙總7_dgv.Columns("加州彩-月").Visible = False : 彙總7_dgv.Columns("六合彩-月").Visible = False : 彙總7_dgv.Columns("大樂透-月").Visible = False
+
+        彙總7_dgv.Columns("總量-月").DefaultCellStyle.Format = "#,##0" : 彙總7_dgv.Columns("結果-月").DefaultCellStyle.Format = "#,##0"
+        彙總7_dgv.Columns("539-月").DefaultCellStyle.Format = "#,##0" : 彙總7_dgv.Columns("加州彩-月").DefaultCellStyle.Format = "#,##0"
+        彙總7_dgv.Columns("六合彩-月").DefaultCellStyle.Format = "#,##0" : 彙總7_dgv.Columns("大樂透-月").DefaultCellStyle.Format = "#,##0"
+
+        彙總7_dgv.Columns("總量-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("結果-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("539-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("加州彩-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("六合彩-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("大樂透-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        彙總7_dgv.Columns("總量-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("結果-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("539-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("加州彩-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("六合彩-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總7_dgv.Columns("大樂透-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        結果3_tb.Text = "0" : 五1_tb.Text = "0" : 加1_tb.Text = "0" : 六1_tb.Text = "0" : 大1_tb.Text = "0"
+        For i As Integer = 0 To 彙總7_dgv.Rows.Count - 1
+            彙總7_dgv.Rows(i).Cells("總量-月").Value = 0 : 彙總7_dgv.Rows(i).Cells("結果-月").Value = 0 : 彙總7_dgv.Rows(i).Cells("539-月").Value = 0
+            彙總7_dgv.Rows(i).Cells("加州彩-月").Value = 0 : 彙總7_dgv.Rows(i).Cells("六合彩-月").Value = 0 : 彙總7_dgv.Rows(i).Cells("大樂透-月").Value = 0
+            For ii As Integer = 0 To 彙總6_dgv.Rows.Count - 1
+                If 彙總7_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總6_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+                   彙總6_dgv.Rows(ii).Cells("類別").Value.ToString = "全" Then
+                    彙總7_dgv.Rows(i).Cells("總量-月").Value = CDbl(彙總6_dgv.Rows(ii).Cells("貢獻額").Value)
+                    彙總7_dgv.Rows(i).Cells("結果-月").Value = CDbl(彙總6_dgv.Rows(ii).Cells("結果").Value)
+                End If
+                If 彙總7_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總6_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+                   彙總6_dgv.Rows(ii).Cells("類別").Value.ToString = "五" Then
+                    彙總7_dgv.Rows(i).Cells("539-月").Value = CDbl(彙總6_dgv.Rows(ii).Cells("結果").Value)
+                End If
+                If 彙總7_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總6_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+                   彙總6_dgv.Rows(ii).Cells("類別").Value.ToString = "加" Then
+                    彙總7_dgv.Rows(i).Cells("加州彩-月").Value = CDbl(彙總6_dgv.Rows(ii).Cells("結果").Value)
+                End If
+                If 彙總7_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總6_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+                   彙總6_dgv.Rows(ii).Cells("類別").Value.ToString = "六" Then
+                    彙總7_dgv.Rows(i).Cells("六合彩-月").Value = CDbl(彙總6_dgv.Rows(ii).Cells("結果").Value)
+                End If
+                If 彙總7_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總6_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
+                   彙總6_dgv.Rows(ii).Cells("類別").Value.ToString = "大" Then
+                    彙總7_dgv.Rows(i).Cells("大樂透-月").Value = CDbl(彙總6_dgv.Rows(ii).Cells("結果").Value)
+                End If
+            Next
+            結果3_tb.Text = CLng(結果3_tb.Text) + CLng(彙總7_dgv.Rows(i).Cells("結果-月").Value.ToString)
+            五1_tb.Text = CLng(五1_tb.Text) + CLng(彙總7_dgv.Rows(i).Cells("539-月").Value.ToString)
+            加1_tb.Text = CLng(加1_tb.Text) + CLng(彙總7_dgv.Rows(i).Cells("加州彩-月").Value.ToString)
+            六1_tb.Text = CLng(六1_tb.Text) + CLng(彙總7_dgv.Rows(i).Cells("六合彩-月").Value.ToString)
+            大1_tb.Text = CLng(大1_tb.Text) + CLng(彙總7_dgv.Rows(i).Cells("大樂透-月").Value.ToString)
+        Next
+
+        If CLng(結果3_tb.Text) <= 0 Then : 結果3_tb.ForeColor = Color.Red : Else : 結果3_tb.ForeColor = Color.Blue : End If : 結果3_tb.Text = Strings.Format(CLng(結果3_tb.Text), "#,##0")
+        If CLng(五1_tb.Text) <= 0 Then : 五1_tb.ForeColor = Color.Red : Else : 五1_tb.ForeColor = Color.Blue : End If : 五1_tb.Text = Strings.Format(CLng(五1_tb.Text), "#,##0")
+        If CLng(加1_tb.Text) <= 0 Then : 加1_tb.ForeColor = Color.Red : Else : 加1_tb.ForeColor = Color.Blue : End If : 加1_tb.Text = Strings.Format(CLng(加1_tb.Text), "#,##0")
+        If CLng(六1_tb.Text) <= 0 Then : 六1_tb.ForeColor = Color.Red : Else : 六1_tb.ForeColor = Color.Blue : End If : 六1_tb.Text = Strings.Format(CLng(六1_tb.Text), "#,##0")
+        If CLng(大1_tb.Text) <= 0 Then : 大1_tb.ForeColor = Color.Red : Else : 大1_tb.ForeColor = Color.Blue : End If : 大1_tb.Text = Strings.Format(CLng(大1_tb.Text), "#,##0")
+
+        彙總7_dgv.Sort(彙總7_dgv.Columns("結果-月"), System.ComponentModel.ListSortDirection.Descending)
+        For i As Integer = 0 To 彙總7_dgv.Rows.Count - 1 : 彙總7_dgv.Rows(i).Cells("項次").Value = i + 1 : Next
+
+        '--------總--------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim ds9 As New DataSet
         彙總5_dgv.DataSource = Nothing : ds9.Clear() : 彙總5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         彙總5_dgv.ColumnHeadersHeight = 25 : 彙總5_dgv.AllowUserToAddRows = False : 彙總5_dgv.RowTemplate.Height = 22
         da.Fill(ds9) : 彙總5_dgv.DataSource = ds9.Tables(0) : conn.Close()
         彙總5_dgv.Columns("項次").FillWeight = 40 : 彙總5_dgv.Columns("商品").FillWeight = 80 : 彙總5_dgv.Columns("系統").FillWeight = 40
         彙總5_dgv.Columns("貢獻度-日").FillWeight = 80 : 彙總5_dgv.Columns("結果-日").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-周").FillWeight = 80
-        彙總5_dgv.Columns("結果-周").FillWeight = 80 : 彙總5_dgv.Columns("結果-年").FillWeight = 80
+        彙總5_dgv.Columns("結果-周").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-月").FillWeight = 80 : 彙總5_dgv.Columns("結果-月").FillWeight = 80
+        彙總5_dgv.Columns("結果-年").FillWeight = 160
+
         彙總5_dgv.Columns("貢獻度-日").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("結果-日").DefaultCellStyle.Format = "#,##0"
         彙總5_dgv.Columns("貢獻度-周").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("結果-周").DefaultCellStyle.Format = "#,##0"
+        彙總5_dgv.Columns("貢獻度-月").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("結果-月").DefaultCellStyle.Format = "#,##0"
         彙總5_dgv.Columns("結果-年").DefaultCellStyle.Format = "#,##0"
+
         彙總5_dgv.Columns("結果-年").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總5_dgv.Columns("結果-年").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總5_dgv.Columns("貢獻度-日").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總5_dgv.Columns("結果-周").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總5_dgv.Columns("貢獻度-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         彙總5_dgv.Columns("結果-周").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
-        '彙總5_dgv.Columns("結果-周").DefaultCellStyle.BackColor = Color.LightYellow
-        '彙總5_dgv.Columns("結果-年").DefaultCellStyle.BackColor = Color.LightYellow
-        '彙總5_dgv.Columns("結果-日").DefaultCellStyle.BackColor = Color.LightYellow
-        '彙總5_dgv.Columns("貢獻度-周").DefaultCellStyle.BackColor = Color.LightYellow
-        '彙總5_dgv.Columns("貢獻度-日").DefaultCellStyle.BackColor = Color.LightYellow
+        彙總5_dgv.Columns("貢獻度-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總5_dgv.Columns("結果-月").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總5_dgv.Columns("貢獻度-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總5_dgv.Columns("結果-月").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
         結果2_tb.Text = "0"
         For i As Integer = 0 To 彙總5_dgv.Rows.Count - 1
             彙總5_dgv.Rows(i).Cells("貢獻度-日").Value = "0" : 彙總5_dgv.Rows(i).Cells("結果-日").Value = "0"
             彙總5_dgv.Rows(i).Cells("貢獻度-周").Value = "0" : 彙總5_dgv.Rows(i).Cells("結果-周").Value = "0"
+            彙總5_dgv.Rows(i).Cells("貢獻度-月").Value = "0" : 彙總5_dgv.Rows(i).Cells("結果-月").Value = "0"
             For ii As Integer = 0 To 彙總3_dgv.Rows.Count - 1
                 If 彙總5_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總3_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
                     彙總5_dgv.Rows(i).Cells("貢獻度-日").Value = CDbl(彙總3_dgv.Rows(ii).Cells("總量-日").Value)
                     彙總5_dgv.Rows(i).Cells("結果-周").Value = CDbl(彙總4_dgv.Rows(ii).Cells("結果-周").Value)
                 End If
             Next
+            For ii As Integer = 0 To 彙總7_dgv.Rows.Count - 1
+                If 彙總5_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總7_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
+                    彙總5_dgv.Rows(i).Cells("貢獻度-月").Value = CDbl(彙總7_dgv.Rows(ii).Cells("總量-月").Value)
+                    彙總5_dgv.Rows(i).Cells("結果-月").Value = CDbl(彙總7_dgv.Rows(ii).Cells("結果-月").Value)
+                End If
+            Next
             結果2_tb.Text = CLng(結果2_tb.Text) + CLng(彙總5_dgv.Rows(i).Cells("結果-年").Value.ToString)
             If CInt(彙總5_dgv.Rows(i).Cells("結果-日").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-日").DefaultCellStyle.ForeColor = Color.Blue : End If
             If CInt(彙總5_dgv.Rows(i).Cells("結果-周").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-周").DefaultCellStyle.ForeColor = Color.Blue : End If
+            If CInt(彙總5_dgv.Rows(i).Cells("結果-月").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-月").DefaultCellStyle.ForeColor = Color.Blue : End If
             If CInt(彙總5_dgv.Rows(i).Cells("結果-年").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-年").DefaultCellStyle.ForeColor = Color.Blue : End If
         Next
         If CLng(結果2_tb.Text) <= 0 Then : 結果2_tb.ForeColor = Color.Red : Else : 結果2_tb.ForeColor = Color.Blue : End If : 結果2_tb.Text = Strings.Format(CLng(結果2_tb.Text), "#,##0")
         彙總5_dgv.Sort(彙總5_dgv.Columns("結果-日"), System.ComponentModel.ListSortDirection.Descending)
-        For i As Integer = 0 To 彙總5_dgv.Rows.Count - 1 : 彙總5_dgv.Rows(i).Cells("項次").Value = i + 1 : Next
+        For i As Integer = 0 To 彙總5_dgv.Rows.Count - 1 : 彙總5_dgv.Rows(i).Cells("項次").Value = i + 1 : Next : 顯示()
     End Sub
 
     Private Sub 後台帳務彙總結算表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         日期清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
     End Sub
     Private Sub 後台帳務彙總結算表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
-        周1_ch.Checked = True : Label4.Visible = True : Label5.Visible = False : 本周周一_dtp.Visible = True : 月初_dtp.Visible = False
+        Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
+        A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2)
+        周1_ch.Checked = True
         結束日期1_dtp.Value = Today() : 月初_dtp.Value = Today() : 月初_dtp.Value = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
         Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期1_dtp.Value : oldWeekDay = Weekday(oldDate)
         If oldWeekDay = 7 Then : 結束日期1_dtp.Value = 結束日期1_dtp.Value.AddDays(1) : ElseIf oldWeekDay = 6 Then : 結束日期1_dtp.Value = 結束日期1_dtp.Value.AddDays(2)
         If e.RowIndex = -1 Then : Else
             開始日期_dtp.Value = 日期清單_dgv("開始日期", e.RowIndex).Value.ToString : 結束日期_dtp.Value = 日期清單_dgv("結束日期", e.RowIndex).Value.ToString
             結束日期1_dtp.Value = 日期清單_dgv("結束日期", e.RowIndex).Value.ToString : 本周周一_dtp.Value = 日期清單_dgv("開始日期", e.RowIndex).Value.ToString
+            月初_dtp.Value = Strings.Left(日期清單_dgv("開始日期", e.RowIndex).Value.ToString, 8) & "01"
             PA15 = 天周月 : Set_流水帳清單3()
         End If
     End Sub
         ElseIf oldWeekDay = 3 Then : 結束日期1_dtp.Value = 結束日期1_dtp.Value.AddDays(5) : ElseIf oldWeekDay = 2 Then : 結束日期1_dtp.Value = 結束日期1_dtp.Value.AddDays(6)
         End If : 本周周一_dtp.Value = 結束日期1_dtp.Value.AddDays(-6) : 結束日期1_dtp.Value = Today()
     End Sub
-    Private Sub 周1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 周1_ch.Click
-        Label4.Visible = True : Label5.Visible = False : 本周周一_dtp.Visible = True : 月初_dtp.Visible = False
-        周1_ch.Checked = True : 月1_ch.Checked = False : Set_流水帳清單3() : MsgBox("計算完成!!")
+    Private Sub 顯示()
+        If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
+            Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = False
+            A1_P.Location = New Point(215, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
+            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
+            彙總5_dgv.Columns("結果-年").Visible = False
+        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
+            Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
+            A2_P.Location = New Point(215, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
+            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
+            彙總5_dgv.Columns("結果-年").Visible = False
+        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
+            Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
+            A3_P.Location = New Point(215, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
+            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
+            彙總5_dgv.Columns("結果-年").Visible = False
+        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
+            Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
+            A4_P.Location = New Point(215, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
+            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
+            彙總5_dgv.Columns("結果-年").Visible = True
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
+            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
+            A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
+            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
+            彙總5_dgv.Columns("結果-年").Visible = False
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
+            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
+            A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
+            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
+            彙總5_dgv.Columns("結果-年").Visible = False
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
+            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
+            A1_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
+            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
+            彙總5_dgv.Columns("結果-年").Visible = True
+        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
+            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
+            A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
+            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
+            彙總5_dgv.Columns("結果-年").Visible = False
+        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
+            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
+            A2_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
+            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
+            彙總5_dgv.Columns("結果-年").Visible = True
+        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
+            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
+            A3_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
+            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
+            彙總5_dgv.Columns("結果-年").Visible = True
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
+            Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
+            A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
+            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
+            彙總5_dgv.Columns("結果-年").Visible = False
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
+            Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
+            A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
+            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
+            彙總5_dgv.Columns("結果-年").Visible = True
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
+            Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
+            A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
+            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
+            彙總5_dgv.Columns("結果-年").Visible = True
+        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
+            Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
+            A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
+            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
+            彙總5_dgv.Columns("結果-年").Visible = True
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
+            Me.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
+            A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2) : A4_P.Location = New Point(761, 2)
+            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
+            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
+            彙總5_dgv.Columns("結果-年").Visible = True
+        End If
+    End Sub
+    Private Sub 顯日_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯日_ch.Click
+        If 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
+            顯日_ch.Checked = True
+        End If : 顯示()
+    End Sub
+    Private Sub 顯周_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯周_ch.Click
+        If 顯日_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
+            顯周_ch.Checked = True
+        End If : 顯示()
+    End Sub
+    Private Sub 顯月_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯月_ch.Click
+        If 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯年_ch.Checked = False Then
+            顯月_ch.Checked = True
+        End If : 顯示()
     End Sub
-    Private Sub 月1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 月1_ch.Click
-        Label4.Visible = False : Label5.Visible = True : 本周周一_dtp.Visible = False : 月初_dtp.Visible = True
-        周1_ch.Checked = False : 月1_ch.Checked = True : Set_流水帳清單3() : MsgBox("計算完成!!")
+    Private Sub 顯年_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯年_ch.Click
+        If 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = False Then
+            顯年_ch.Checked = True
+        End If : 顯示()
     End Sub
 End Class

GA-ERP-SYS/報表系統管理/後台/後台帳務明細查詢表.vb

             End If
         End If
     End Sub
-    'Private Sub 彙總1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 彙總1_dgv.RowPostPaint
-    '    Dim linePen As New Pen(Color.Blue, 2)
-    '    If e.RowIndex = 彙總1_dgv.Rows.Count - 1 Then
-    '        Exit Sub
-    '    Else
-    '        If 彙總1_dgv(2, e.RowIndex).Value.ToString.ToLower() <> 彙總1_dgv(2, e.RowIndex + 1).Value.ToString.ToLower() Then
-    '            Dim startX As Integer = IIf(彙總1_dgv.RowHeadersVisible, 彙總1_dgv.RowHeadersWidth, 0)
-    '            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-    '            Dim endX As Integer = startX + 彙總1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 彙總1_dgv.HorizontalScrollingOffset
-    '            e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
-    '            Exit Sub
-    '        End If
-    '    End If
-    'End Sub
     Private Sub 日期清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 日期清單_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             Dim ddd1 As String = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : Dim ddd2 As String = 日期清單_dgv("開始日期", e.RowIndex).Value.ToString

GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb

             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox1.Location = New System.Drawing.Point(2, 401)
+        Me.TextBox1.Location = New System.Drawing.Point(2, 425)
         Me.TextBox1.Multiline = True
         Me.TextBox1.Name = "TextBox1"
         Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(680, 514)
         Me.TextBox3.TabIndex = 2
-        Me.TextBox3.Text = "版本號 : 2022120101" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、優化連線線路。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.TextBox3.Text = "版本號 : 2022120501" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、電板彙總表新增報表預覽，(解決對帳表太長的問題)。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、後台彙總表新增日、周、月、年，四種帳務可以自" &
+    "由配合顯示。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
         'TextBox4
         '
         Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources.ed5f904392cf941341dc53da46cf6fb
         Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.PictureBox1.Location = New System.Drawing.Point(2, 83)
+        Me.PictureBox1.Location = New System.Drawing.Point(2, 110)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(680, 325)
         Me.PictureBox1.TabIndex = 4

GA-ERP-SYS/特殊操作功能/系統公告.resx

     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="TextBox1.Text" xml:space="preserve">
-    <value>版本號 : 2022112301
+    <value>版本號 : 2022120101
+更新內容如下 :
+1、優化連線線路。
+
+版本號 : 2022112301
 更新內容如下 :
 1、修正自動更新線路上的BUG。