Я изменил цвет фона строки в datagridview, если срок действия лекарства уже истек?

я изменил цвет фона строки в datagridview, если срок действия лекарства уже истек?

        con.Open()
        Dim query As String
        query = "Select product_code,drug_name,quantity,expiration_date from medicine where expiration_date"
        command = New MySqlCommand(query, con)
        readers = command.ExecuteReader

        Dim count As Integer
        count = 0
        While readers.Read
            count = count + 1
        End While
        con.Close()
        If count = 0 Then
            MsgBox("no expiration")
        Else
            Dim SQL As String = ""
            Dim da As MySqlDataAdapter = Nothing
            Dim dt As New DataTable
            SQL = "Select product_code,drug_name,quantity,expiration_date from medicine where expiration_date"
            command = New MySqlCommand(SQL, con)
        End If

См. событие DataGridView.CellFormatting. Или DataGridView.RowValidating. Или DataGridView.RowPrePaint. Выбранный вами метод зависит от различных факторов; например, когда следует применить этот стиль.

Jimi 07.04.2019 15:35

Также см. DataGridViewRow.DefaultCellStyle и его свойство BackColor.

Jimi 07.04.2019 15:40

Возможный дубликат Условное форматирование DataGridView

TnTinMn 07.04.2019 16:44
Стоит ли изучать PHP в 2023-2024 годах?
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
1
3
64
2
Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

Я не понимаю, что вы пытаетесь сделать или как вы собираетесь нагружать сетку. любой способ изменить цвет столбца, все, что вам нужно сделать, это:

           dgv1.Columns("columnsName").DefaultCellStyle.BackColor = Color.Red

у меня есть лекарство, срок действия которого истек в базе данных, а затем изменить цвет строк, чтобы определить лекарство, если оно истекло.

xedrick 07.04.2019 16:00

Извините, я говорю это по памяти, попробуйте это. dgv1.Rows(e.RowIndex).Cells("expiration_date").Style.BackCol‌​или = Color.Red

JC M 07.04.2019 16:34
Ответ принят как подходящий

Хорошо, прежде всего вам нужно загрузить сетку с данными базы данных следующим образом:

    con.Open()
        Dim query As String
        Dim da As new MySqlDataAdapter
        Dim dt As New DataTable
        query = "Select product_code,drug_name,quantity,expiration_date from medicine where expiration_date is not null"
        command = New MySqlCommand(query, con)
        da.SelectCommand = cm
        da.Fill(dt)
        dgv1.datasource = dt

Затем вам нужно установить цвет в событии форматирования ячейки:

 Private Sub dgv1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dgv1.CellFormatting
        If dgv1.Rows(e.RowIndex).Cells("expiration_date").Value < now Then
            dgv1.Rows(e.RowIndex).cells("expiration_date").Style.BackColor = Color.Red
        End If

Другие вопросы по теме