VB.Net程序设计:XPTable基本操作代码段(备忘录)
发布时间:2020-12-17 08:02:52 所属栏目:百科 来源:网络整理
导读:Private Enum eColTxtLotNumQtyDtpDateEnd EnumPrivate Function getXRowByObject(ByVal obj As Object) As XPTable.Models.RowDim xRow As New XPTable.Models.RowWith xRow.CellsFor i As Integer = 0 To Cmod.Columns.Count - 1.Add(New XPTable.Models.C
Private Enum eCol TxtLot NumQty DtpDate End Enum Private Function getXRowByObject(ByVal obj As Object) As XPTable.Models.Row Dim xRow As New XPTable.Models.Row With xRow.Cells For i As Integer = 0 To Cmod.Columns.Count - 1 .Add(New XPTable.Models.Cell()) Next .Item(eCol.TxtLot).Text = obj.DMLot .Item(eCol.NumQty).Data = obj.Qty .Item(eCol.DtpDate).Data = obj.Date '数字,日期,颜色,按钮等都可以用.Data属性来存放数据,用.Text属性来显示自定义格式的数据。 End With xRow.Tag = obj.GetHashCode.ToString Return xRow End Function For Each xRow As XPTable.Models.Row In Me.xpLots.SelectedItems Me.xpLots.TableModel.Rows.Remove(xRow) Next For Each xRow As XPTable.Models.Row In Me.xpLots.TableModel.Rows If xRow.Cells(eCol.ChkSelected).Checked Then ‘------------------------------ End If Next (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |