Public Class 合約利潤預估表 Private Sub Set_合約清單() Dim ds6 As New DataSet Dim 工資成本, 工資利潤, 材料成本, 材料利潤, 預估利潤, 總折讓 As Double 合約_dgv.DataSource = Nothing : ds6.Clear() 合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 合約_dgv.ColumnHeadersHeight = 40 : 合約_dgv.AllowUserToAddRows = False PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text SQL_合約清單_預估利潤() da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close() Set_進度條顯示4() : Set_進度條顯示3() : Set_進度條顯示2() : Set_進度條顯示1() 合約_dgv.Columns(0).FillWeight = 120 : 合約_dgv.Columns(1).FillWeight = 250 合約_dgv.Columns("預估工資成本").FillWeight = 110 : 合約_dgv.Columns("預估工資報價").FillWeight = 110 合約_dgv.Columns("預估材料成本").FillWeight = 110 : 合約_dgv.Columns("預估材料報價").FillWeight = 110 合約_dgv.Columns("工程名稱_英").Visible = False : 合約_dgv.Columns("工程名稱_中").Visible = True 合約_dgv.Columns("工資利潤比").Visible = False : 合約_dgv.Columns("材料利潤比").Visible = False 合約_dgv.Columns("利潤比1").Visible = False : 合約_dgv.Columns("利潤比2").Visible = False 合約_dgv.Columns("幣別").Visible = False : 合約_dgv.Columns("中心匯率").Visible = False 合約_dgv.Columns("美金匯率").Visible = False : 合約_dgv.Columns("印尼匯率").Visible = False 合約_dgv.Columns("預估工資成本").DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns("預估工資報價").DefaultCellStyle.Format = "#,##0" 合約_dgv.Columns("預估材料成本").DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns("預估材料報價").DefaultCellStyle.Format = "#,##0" 合約_dgv.Columns("總成本").DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns("總報價").DefaultCellStyle.Format = "#,##0" 合約_dgv.Columns("預估利潤").DefaultCellStyle.Format = "#,##0" 合約_dgv.Columns("預估工資成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("預估工資報價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("預估材料成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("預估材料報價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("總成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("總報價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("預估利潤").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("預估工資成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("預估工資報價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("預估材料成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("預估材料報價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("總成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("總報價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 合約_dgv.Columns("預估利潤").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 工資成本 = 0 : 材料成本 = 0 : 工資利潤 = 0 : 材料利潤 = 0 : 預估利潤 = 0 For i As Integer = 0 To 合約_dgv.Rows.Count - 1 If 印尼盾_ch.Checked = True Then If 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "印尼盾" Then '-----不需要轉換-------------------------------------------------- ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "台幣" Then 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "人民幣" Then Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) * 匯率A ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "美金" Then Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) * 匯率A End If ElseIf 台幣_ch.Checked = True Then If 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "印尼盾" Then 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "台幣" Then '-----不需要轉換-------------------------------------------------- ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "人民幣" Then 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "美金" Then 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) End If ElseIf 人民幣_ch.Checked = True Then If 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "印尼盾" Then Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) * 匯率A ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "台幣" Then 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "人民幣" Then '-----不需要轉換-------------------------------------------------- ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "美金" Then Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) * 匯率A End If ElseIf 美金_ch.Checked = True Then If 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "印尼盾" Then Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) * 匯率A ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "台幣" Then 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "人民幣" Then Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) 合約_dgv.Rows(i).Cells("預估工資成本").Value = CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估工資報價").Value = CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料成本").Value = CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估材料報價").Value = CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總成本").Value = CLng(合約_dgv.Rows(i).Cells("總成本").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("總報價").Value = CLng(合約_dgv.Rows(i).Cells("總報價").Value.ToString) * 匯率A 合約_dgv.Rows(i).Cells("預估利潤").Value = CLng(合約_dgv.Rows(i).Cells("預估利潤").Value.ToString) * 匯率A ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "美金" Then '-----不需要轉換-------------------------------------------------- End If End If If 合約_dgv.Rows(i).Cells("預估利潤").Value < 0 Then : 合約_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If 工資成本 += CLng(合約_dgv.Rows(i).Cells("預估工資成本").Value) 材料成本 += CLng(合約_dgv.Rows(i).Cells("預估材料成本").Value) 工資利潤 += CLng(合約_dgv.Rows(i).Cells("預估工資報價").Value) 材料利潤 += CLng(合約_dgv.Rows(i).Cells("預估材料報價").Value) 預估利潤 += CLng(合約_dgv.Rows(i).Cells("預估利潤").Value) Next 預估工資總成本_tb.Text = Strings.Format(工資成本, "#,##0") : 預估材料總成本_tb.Text = Strings.Format(材料成本, "#,##0") : 預估工資總報價_tb.Text = Strings.Format(工資利潤, "#,##0") 預估材料總報價_tb.Text = Strings.Format(材料利潤, "#,##0") : 預估利潤_tb.Text = Strings.Format(預估利潤, "#,##0") : 總報價_tb.Text = Strings.Format(工資利潤 + 材料利潤, "#,##0") 總成本_tb.Text = Strings.Format(工資成本 + 材料成本, "#,##0") : 累計折讓_tb.Text = Strings.Format(預估利潤 - ((工資利潤 + 材料利潤) - (工資成本 + 材料成本)), "#,##0") 總折讓 = 預估利潤 - ((工資利潤 + 材料利潤) - (工資成本 + 材料成本)) If 工資利潤 = 0 Then : 利潤比1_tb.Text = "0 %" : Else 利潤比1_tb.Text = Strings.Format((1 - ((工資成本) / (工資利潤))) * 100, "#,##0") & " %" End If If 材料利潤 = 0 Then : 利潤比2_tb.Text = "0 %" : Else 利潤比2_tb.Text = Strings.Format((1 - ((材料成本) / (材料利潤))) * 100, "#,##0") & " %" End If If (材料利潤 + 工資利潤) = 0 Then : 利潤比3_tb.Text = "0 %" : Else 利潤比3_tb.Text = Strings.Format((1 - ((材料成本 + 工資成本) / (材料利潤 + 工資利潤))) * 100, "#,##0") & " %" End If If (材料利潤 + 工資利潤) = 0 Then : 利潤比4_tb.Text = "0 %" : Else 利潤比4_tb.Text = Strings.Format((1 - ((材料成本 + 工資成本) / (材料利潤 + 工資利潤 + 總折讓))) * 100, "#,##0") & " %" End If End Sub Private Sub Set_進度條顯示1() Dim Col As New DataGridViewProgressColumn With { .FillWeight = 55, .DataPropertyName = "利潤比" } Col.HeaderText = "工資利潤比(%)" : Col.Name = "容量" : Col.DataPropertyName = "工資利潤比" 合約_dgv.Columns.Insert(5, Col) End Sub Private Sub Set_進度條顯示2() Dim Col As New DataGridViewProgressColumn With { .FillWeight = 55, .DataPropertyName = "利潤比" } Col.HeaderText = "材料利潤比(%)" : Col.Name = "容量" : Col.DataPropertyName = "材料利潤比" 合約_dgv.Columns.Insert(8, Col) End Sub Private Sub Set_進度條顯示3() Dim Col As New DataGridViewProgressColumn With { .FillWeight = 55, .DataPropertyName = "利潤比" } Col.HeaderText = "利潤比 無折讓" : Col.Name = "容量" : Col.DataPropertyName = "利潤比1" 合約_dgv.Columns.Insert(11, Col) End Sub Private Sub Set_進度條顯示4() Dim Col As New DataGridViewProgressColumn With { .FillWeight = 55, .DataPropertyName = "利潤比" } Col.HeaderText = "利潤比 含折讓" : Col.Name = "容量" : Col.DataPropertyName = "利潤比2" 合約_dgv.Columns.Insert(13, Col) End Sub Private Sub 甲方條件下拉清單讀取() SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close() End Sub Private Sub 合約利潤預估表_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True 分母 = 100 : 分段1 = 0.35 : 分段2 = 0.34 : 分段3 = 0.65 : 分段4 = 0.64 : 進度條後墜 = " %" 合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) 預估工資總成本_tb.Text = "0" : 預估材料總成本_tb.Text = "0" : 預估工資總報價_tb.Text = "0" : 預估材料總報價_tb.Text = "0" : 預估利潤_tb.Text = "0" 總成本_tb.Text = "0" : 總報價_tb.Text = "0" : 利潤比1_tb.Text = "0 %" : 利潤比2_tb.Text = "0 %" : 利潤比3_tb.Text = "0 %" : 利潤比4_tb.Text = "0 %" End Sub Private Sub 合約利潤預估表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown 甲方條件下拉清單讀取() : Set_合約清單() End Sub Private Sub 工程日報表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed End Sub Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged Set_合約清單() End Sub Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click PA = 關鍵字搜尋_tb.Text : Set_合約清單() End Sub Private Sub 美金_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 美金_ch.Click 美金_ch.Checked = True : 人民幣_ch.Checked = False : 台幣_ch.Checked = False : 印尼盾_ch.Checked = False : Set_合約清單() End Sub Private Sub 人民幣_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 人民幣_ch.Click 美金_ch.Checked = False : 人民幣_ch.Checked = True : 台幣_ch.Checked = False : 印尼盾_ch.Checked = False : Set_合約清單() End Sub Private Sub 台幣_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 台幣_ch.Click 美金_ch.Checked = False : 人民幣_ch.Checked = False : 台幣_ch.Checked = True : 印尼盾_ch.Checked = False : Set_合約清單() End Sub Private Sub 印尼盾_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 印尼盾_ch.Click 美金_ch.Checked = False : 人民幣_ch.Checked = False : 台幣_ch.Checked = False : 印尼盾_ch.Checked = True : Set_合約清單() End Sub End Class