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使用

1、数据源    grd.DataSource = myCls.loadGrid2_ds(stj).Tables(0)      grd.Refresh() 2、显示页脚           ...
  • liuyunfan
  • liuyunfan
  • 2012年12月07日 20:10
  • 1163

将第三方控件UltraWinGrid设为只读或选中整行

将第三方控件UltraWinGrid设为只读或选中整行作者:hanli 发表时间: 1 个月前   查看数: 16 | 回复数: 0如何将第三方控件UltraWinGrid设为只读1 在窗体加载时: ...
  • MaleLionOfWakeUp
  • MaleLionOfWakeUp
  • 2008年01月11日 14:51
  • 5671

UltraWinGrid使用心得(C#)

UltraWinGrid使用心得(C#)   UltraWinGrid行号从0开始   CellMultiLine Cell多行显示 当设定一个Co...
  • huanglin529
  • huanglin529
  • 2017年04月18日 16:22
  • 663

Infragistics UltraGrid的使用

术语: persist——持续化(保存) property——属性 attribute 特性      setting——设置    Band——数据条带 一、UltraGrid 的基本概念 ...
  • mss359681091
  • mss359681091
  • 2018年01月19日 16:53
  • 104

UltraGrid的排序方式

Infragistics.Win.UltraWinGrid.UltraGrid的排序方式。 假设:UltraGrid dataGrid ; 普通的排序方式我们一般只需要: dataG...
  • huanglin529
  • huanglin529
  • 2017年03月31日 10:22
  • 661

Infragistics netadvantage UltraGrid (UltraWinGrid) 基本用法

文章参考:http://www.cnblogs.com/surfsky/archive/2008/08/20/1272104.htmlUltraGrid 是Infragistics netadvana...
  • zyming0815
  • zyming0815
  • 2010年06月05日 20:56
  • 9557

Infragistics netadvantage UltraGrid (UltraWinGrid) 编程手记

参考Online SDK help: http://help.infragistics.com/NetAdvantage/NET/2008.1/CLR2.0/    提供商首页:http://www....
  • andy_212
  • andy_212
  • 2009年03月24日 13:15
  • 1936

UltraWinGrid手记

1、使某一列不能编辑  grd2.DisplayLayout.Bands(0).Columns("还款金额").CellActivation = Infragistics.Win.UltraWinGr...
  • liuyunfan
  • liuyunfan
  • 2013年12月04日 17:54
  • 5992

《IT项目经理成长手记》读后有所思

最近看了一本潘东、韩秋泉先生合著的一本书《IT项目经理成长手记》,虽然与IT项目经理相关的书我看的不多,对于这个行业了解也不算太多,但是我依然认为这是一本很值得想要从事互联网产品、通信行业解决方案管理...
  • u013816144
  • u013816144
  • 2016年06月20日 21:53
  • 3890

[随手记经验] 【转载】其实你不懂记账

这些问题你都能立马回答出来吗?  1、你的资产负债率是多少?  2、你的收支结余比例是多少?  3、上个月结余的钱都放在什么地方了?  4、目前你手上有多少可动用资金?  5、你的股票、基金等投资收益...
  • fishmai
  • fishmai
  • 2016年09月01日 12:58
  • 1174
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:UltraWinGrid手记
举报原因:
原因补充:

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