깨비네 마을 ~ 'ㅁ'/

총합계 재계산 하기(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

그리드에서 입력한 금액을 group, total summary에 바로 반영 Private Sub BandedGridView1_CellValueChanged에 기술한다 Me.BandedGridView1.UpdateGroupSummary() ' group summary변경 Me.BandedGridView1.UpdateTotalSummary() ' total summary변경 or GridOptionsBehavior.AutoUpdateTotalSummary option is set 으로 할수 있으나 큰작업 할때는 속도 느려질수 있음

[enter key입력시 자동 조회] Private Sub rgDiv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rgDiv.KeyDown If e.KeyCode = Keys.Enter Then Me.DoRetrieveEvent() End If End Sub

그리드의 순번 xgsheet -> Font -> IsViewRowNumber = true/false