UltraWinGrid手记

原创 2013年12月04日 17:54:54

1、使某一列不能编辑

 grd2.DisplayLayout.Bands(0).Columns("还款金额").CellActivation = Infragistics.Win.UltraWinGrid.Activation.AllowEdit

2、使某一单元格不能编辑

ultraGrid1.Rows(0).Cells(1).Activation = Infragistics.Win.UltraWinGrid.Activation.ActivateOnly

3、获取某列的值累计

 Dim i As Integer
        Dim temp As Double
        Try
            temp = 0
            For i = 0 To grd2.Rows.Count - 1
                If grd2.Rows(i).Cells("还款金额").Value <> 0 Then
                    temp += CDbl(grd2.Rows(i).Cells("还款金额").Value)
                End If
            Next
            txtdai.Text = CDbl(txtall.Text) - temp
        Catch ex As Exception


        End Try

4、获取列数量

  grd2.DisplayLayout.Bands(0).Columns.Count - 1

5、grd_InitializeLayout事件

  ''行选择
        'e.Layout.Override.SelectTypeRow = Infragistics.Win.UltraWinGrid.SelectType.Single
        ''进行行选择
        'e.Layout.Override.CellClickAction = Infragistics.Win.UltraWinGrid.CellClickAction.RowSelect


        ''支持排序
        'e.Layout.ViewStyleBand = Infragistics.Win.UltraWinGrid.ViewStyleBand.Vertical
        'e.Layout.Override.HeaderClickAction = Infragistics.Win.UltraWinGrid.HeaderClickAction.SortMulti

‘禁止新增
        e.Layout.Override.AllowAddNew = Infragistics.Win.UltraWinGrid.AllowAddNew.No

’禁止删除
        e.Layout.Override.AllowDelete = Infragistics.Win.DefaultableBoolean.False

‘列宽度

  e.Layout.Bands(0).Columns(0).Width = 200

’全部列隐藏

 Dim i As Integer
        For i = 0 To e.Layout.Bands(0).Columns.Count - 1
           e.Layout.Bands(0).Columns(i).Hidden = True
       Next

6、统计,数据绑定后

   Try
            grd.DisplayLayout.Bands(0).SummaryFooterCaption = "合计:"
            grd.DisplayLayout.Override.SummaryFooterAppearance.TextHAlign = Infragistics.Win.HAlign.Right
            grd.DisplayLayout.Bands(0).Summaries.Add("C3", Infragistics.Win.UltraWinGrid.SummaryType.Sum, grd.DisplayLayout.Bands(0).Columns("借款金额"), Infragistics.Win.UltraWinGrid.SummaryPosition.UseSummaryPositionColumn)
            grd.DisplayLayout.Bands(0).Summaries("C3").DisplayFormat = "{0:C1}"
            grd.DisplayLayout.Bands(0).Summaries.Add("C4", Infragistics.Win.UltraWinGrid.SummaryType.Sum, grd.DisplayLayout.Bands(0).Columns("剩余金额"), Infragistics.Win.UltraWinGrid.SummaryPosition.UseSummaryPositionColumn)
            grd.DisplayLayout.Bands(0).Summaries("C4").DisplayFormat = "{0:C1}"
        Catch ex As Exception


        End Try


7、回车键到下一单元格



    Private Sub grd2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles grd2.KeyDown
        Select Case e.KeyCode
            Case 13
                '回车键
                grd2.PerformAction(Infragistics.Win.UltraWinGrid.UltraGridAction.ExitEditMode, False, False)
                e.Handled = True
                grd2.PerformAction(Infragistics.Win.UltraWinGrid.UltraGridAction.NextCellInBand, False, False)
                grd2.PerformAction(Infragistics.Win.UltraWinGrid.UltraGridAction.EnterEditMode, False, False)
        End Select


8、栅格化

  Private Sub shangehua()
        Try
            Dim i As Integer
            For i = 0 To grd.Rows.Count - 1
                '6-身份正类别
                '16-报名来源           
                grd.Rows(i).Cells("czjmc").Value = o.getccznrbyczbm(grd.Rows(i).Cells("czjmc").Value)
                grd.Rows(i).Cells("csfzlb").Value = o.getccznrbyczbm(grd.Rows(i).Cells("csfzlb").Value)
                grd.Rows(i).Cells("cbmly").Value = dept.getdeptname(grd.Rows(i).Cells("cbmly").Value)
                grd.Rows(i).Cells("cbklx").Value = o.getccznrbyczbm(grd.Rows(i).Cells("cbklx").Value)
                grd.Rows(i).Cells("cjzlx").Value = o.getccznrbyczbm(grd.Rows(i).Cells("cjzlx").Value)
                grd.Rows(i).Cells("czjcx").Value = o.getccznrbyczbm(grd.Rows(i).Cells("czjcx").Value)


                grd.Rows(i).Cells("ctjzj").Value = o.getccznrbyczbm2(grd.Rows(i).Cells("ctjzj").Value, "|")
                grd.Rows(i).Cells("izt").Value = tt.getzt(grd.Rows(i).Cells("izt").Value)
                grd.Rows(i).Cells("cjsr").Value = myuser.getusername((grd.Rows(i).Cells("cjsr").Value))
            Next
        Catch ex As Exception


        End Try


    End Sub


9、获取行数量

grd.Rows.Count.ToString


10、隐藏某列

  Try
            grd.DisplayLayout.Bands(0).Columns("公司").Hidden = True


        Catch ex As Exception


        End Try

11、使某行数据高亮红色显示

 Private Sub grd_InitializeRow(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.InitializeRowEventArgs) Handles grd.InitializeRow
        e.Row.CellAppearance.BackColor = Color.White
        If e.Row.Cells("公司").Text = 2 Then
            e.Row.CellAppearance.BackColor = Color.Red


        End If
    End Sub


12、    '冻结列
        Try
            '编码,号牌号码,挂车号牌,
            grd.DisplayLayout.UseFixedHeaders = True
            grd.DisplayLayout.Bands(0).Columns("编码").Header.Fixed = True
            grd.DisplayLayout.Bands(0).Columns("号牌号码").Header.Fixed = True
            grd.DisplayLayout.Bands(0).Columns("挂车号牌").Header.Fixed = True


        Catch ex As Exception


        End Try

UltraWinGrid使用心得(C#)

UltraWinGrid使用心得(C#)   UltraWinGrid行号从0开始   CellMultiLine Cell多行显示 当设定一个Co...

UltraWinGrid使用

1、数据源    grd.DataSource = myCls.loadGrid2_ds(stj).Tables(0)      grd.Refresh() 2、显示页脚           ...

Infragistics netadvantage UltraGrid (UltraWinGrid) 编程手记

UltraGrid 是Infragistics netadvanage 控件库中提供的一个Windows 网格控件,功能强大,完全可以取代VS 中提供的 GridView控件。但不知为何,国内介绍它的...

UltraWinGrid:处理单元格输入非法值

某个Grid的列要求输入int型,但是终端用户却输入了无法转化为int的字符,此时UltraGrid默认会提示客户,弹出如下提示: 如图所示,每次输入在顶端增加一个新行,焦点所在的单元格,输入了...

[#显示分层数据的 UltraWinGrid 与一些自定义网格的外观设置吗?

本文来自:http://www.itstrike.cn/Question/276f4eda-89bc-4155-921e-bcc591332d9c.html 我有对象,看起来像这样: pu...

UltraWinGrid单元格绑定Tree,双击Tree结点,返回结点值到单元格

重点是把要放Tree的那个单元格用一个全局变量保存,在事件中好给它赋值using System; using System.Collections.Generic; using System.Data...
  • lee576
  • lee576
  • 2013年11月13日 13:04
  • 1456

UltraWinGrid常用技巧

1 委托this.ultraGrid1.AfterCellUpdate -= new Infragistics.Win.UltraWinGrid.CellEventHandler(this.ultra...

UltraWinGrid导出EXCEL的一些技术文档

DATAGRID 导出EXCEL的方法    许多朋友,在做DATAGRID中的数据导成EXCEL的时候,都碰到问题,需要些较多的代码,现在,大家可以用UltraWinGrid, UltraGrid...

IT项目经理成长手记 kindle

  • 2017年12月01日 11:08
  • 8.7MB
  • 下载

IT项目经理成长手记

  • 2017年12月05日 13:27
  • 622B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:UltraWinGrid手记
举报原因:
原因补充:

(最多只允许输入30个字)