Private Enum eCol TxtLot NumQty DtpDateEnd EnumPrivate 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 xRowEnd 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总结
以上是内存溢出为你收集整理的VB.Net程序设计:XPTable基本 *** 作代码段(备忘录)全部内容,希望文章能够帮你解决VB.Net程序设计:XPTable基本 *** 作代码段(备忘录)所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)