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