前端之家收集整理的这篇文章主要介绍了
VB.Net程序设计：XPTable基本操作代码段（备忘录），
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
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 原文链接：https://www.f2er.com/vb/258237.html
