Member 14618571
Частные Sub FillProductDetails()
dgvProductDetails.Rows.Четкий()
Dim mdgvNRow As Integer = 0
Тусклый индекс как целое число = 0
Если mProductDetailsList-это не что иное, как mProductDetailsList.Тогда считайте <> 0
Для каждого элемента как ProductDetails в Me.ProductDetailsList
С предметами
mdgvNRow = dgvProductDetails.Rows.Add
Дим не качайте, не как ячейки datagridviewrow = dgvProductDetails.Строки(mdgvNRow)
не качайте, не.Ячейки("colProductName").Значение = .Марка
не качайте, не.Ячейки("colCode").Значение = .Code
не качайте, не.Клетки ("colExpiryDateTime").Значение = .ExpiryDateTime
не качайте, не.Клетки("colAvailable").Значение = .Доступно
не качайте, не.Клетки("колпродуктрат").Значение = .ProductRate
mdgvNRow = mdgvNRow + 1
Конец С
Следующий
Конец, Если
Конец Подводной Лодки
Private Sub frmStudentDetails_Load(ByVal sender As Object, ByVal e As EventArgs) обрабатывает меня.Load
FillProductDetails()
Конец Подводной Лодки