깨비네 마을 ~ 'ㅁ'/

프로젝트 참조 BZ

Private Sub xgTA_EE030_VView_CustomSummaryCalculate(ByVal sender As Object, ByVal e As DevExpress.Data.CustomSummaryEventArgs) Handles xgTA_EE030_VView.CustomSummaryCalculate If e.SummaryProcess = DevExpress.Data.CustomSummaryProcess.Finalize Then ' 달성율, 신장율 계산 ' 1) 목표 달성율 Dim douSale_amt As Double = CType(Func.NVL(colSALE_AMT.SummaryText, "0"), Double) Dim douPlan_amt As Double = CType(Func.NVL..

Footer 3D효과 주기 Imports System.Drawing.Drawing2D 'Footer 3D효과 Private Sub xgSheetView_CustomDrawFooterCell(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.FooterCellCustomDrawEventArgs) Handles xgSheetView.CustomDrawFooterCell Dim dx As Integer = e.Bounds.Height Dim brush As Brush = e.Cache.GetGradientBrush(e.Bounds, Color.Wheat, Color.FloralWhite, _ LinearGradientMode.Vertical)..

총합계 재계산 하기(2) : 이벤트 써서 Private Sub xgSheetView_CustomSummaryCalculate(ByVal sender As Object, ByVal e As DevExpress.Data.CustomSummaryEventArgs) Handles xgSheetView.CustomSummaryCalculate If e.SummaryProcess = DevExpress.Data.CustomSummaryProcess.Finalize Then 'If e.Item.ToString() = "FAIL_COUNT" Then Try e.TotalValue = colSUCC_COUNT.SummaryItem.SummaryValue * 15 e.TotalValue = "과금액 =" & e.Total..

총합계 재계산 하기(1) : 조회 후 재계산 1) 목표 달성율 Dim douSale_amt As Double = Func.NVL(CType(colSALE_AMT.SummaryText, Double), 0) Dim douPlan_amt As Double = Func.NVL(CType(colPLAN_AMT.SummaryText, Double), 0) If douPlan_amt = 0 Then colCURR_GOAL_RATE.SummaryItem.DisplayFormat = 0 & "%" Else colCURR_GOAL_RATE.SummaryItem.DisplayFormat = Func.Round((douSale_amt / douPlan_amt) * 100, 1) & "%" End If

그룹별 스크립트로 합계 계산하기 Private _value As String = "" '그룹별로 금액 구하기 Private Sub xgSheetView_CustomSummaryCalculate(ByVal sender As Object, ByVal e As DevExpress.Data.CustomSummaryEventArgs) Handles xgSheetView.CustomSummaryCalculate Dim summaryID As Integer = Convert.ToInt32(CType(e.Item, DevExpress.XtraGrid.GridSummaryItem).Tag) Dim View As DevExpress.XtraGrid.Views.Grid.GridView = CType(sender, DevEx..

합계를 스크립트 작성하기 Public Overrides Sub DoRetrieveEvent() If RetrieveCheck() = False Then Return End If MyBase.DoRetrieveEvent() Dim decTotTagAmt As Decimal = 0 Dim decTotMatSum As Decimal = 0 For Each dr As DataRow In tds.Tables(0).Rows decTotTagAmt += dr("TAG_AMT") decTotMatSum += dr("SUM_ALL2") Next If decTotMatSum = 0 Then Me.colRATE.SummaryItem.DisplayFormat = 0 Else Me.colRATE.SummaryItem.Displ..

group으로 설정하지 않아도 값이 나올경우 디자이너-> columns -> 해당 컬럼의 groupformat을 확인한다..없애주면 그룹에 대한 값 안나옴..

banded view에서 해당 band에 대한 컬럼명 확인 하는 방법 desiner -> option view -> showcolumnheaders = True로 한다

update시 동시성 에러 날때 biz에다가 키컬럼으로 비교 하는거 넣는다 Public Overrides Function DataUpdate(ByVal ds As System.Data.DataSet) As Integer strEmpNo = ds.Tables("LOGIN_EMP_NO").Rows.Item(0).Item("EMP_NO").ToString() Me.dbAgent.Options.UpdateCompareOption = CompareOption.KeyColumns Return MyBase.DataUpdate(ds) End Function