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