ebie147 Ответов: 0

Фильтр набора данных из XML в datagridview VB.NET


привет, ребята, Итак, у меня есть datagridview, который имеет набор данных, связанный с xml-файлом,я должен отобразить данные в datagridview, но то,что я хочу сделать сейчас, это вынуть строки, которые имеют определенные значения, это мой код
'Load Creditors data
               Dim CPADataset As New DataSet
               Dim NLRDataset As DataSet = New DataSet
               doc.Load(pathtext)
               Dim CPANode As XmlNode = doc.SelectSingleNode("ROOT/EnqCC_CPA_ACCOUNTS")
               Dim NLRNode As XmlNode = doc.SelectSingleNode("ROOT/EnqCC_NLR_ACCOUNTS")
               Dim NLRXMLRdr As XmlNodeReader = New XmlNodeReader(NLRNode)
               Dim CPAXMLRdr As XmlNodeReader = New XmlNodeReader(CPANode)
               CPADataset.ReadXml(CPAXMLRdr)
               NLRDataset.ReadXml(NLRXMLRdr)
               CPADataset.Merge(NLRDataset)


               dgvCPA.DataSource = CPADataset
               dgvCPA.DataMember = "ROW"
               Dim chk1, chk2 As New DataGridViewCheckBoxColumn
               '
               With dgvCPA
                   '   .RowHeadersVisible = False
                   .Columns("SUBSCRIBER_CODE").Visible = False
                   .Columns("SUBSCRIBER_NAME").Visible = True
                   .Columns("BRANCH_CODE").Visible = False
                   .Columns("ACCOUNT_NO").Visible = True
                   .Columns("SUB_ACCOUNT_NO").Visible = False
                   .Columns("OWNERSHIP_TYPE").Visible = False
                   .Columns("OWNERSHIP_TYPE_DESC").Visible = False
                   .Columns("REASON").Visible = False
                   .Columns("REASON_DESC").Visible = False
                   .Columns("PAYMENT_TYPE").Visible = False
                   .Columns("PAYMENT_TYPE_DESC").Visible = False
                   .Columns("ACCOUNT_TYPE").Visible = False
                   .Columns("ACCOUNT_TYPE_DESC").Visible = True
                   .Columns("OPEN_DATE").Visible = False
                   .Columns("DEFERRED_PAYMENT_DATE").Visible = False
                   .Columns("LAST_PAYMENT_DATE").Visible = True
                   .Columns("OPEN_BAL").Visible = False
                   .Columns("OPEN_BAL_IND").Visible = False
                   .Columns("CURRENT_BAL").Visible = True
                   .Columns("CURRENT_BAL_IND").Visible = False
                   .Columns("OVERDUE_AMOUNT").Visible = True
                   .Columns("OVERDUE_AMOUNT_IND").Visible = False
                   .Columns("INSTALMENT_AMOUNT").Visible = True
                   .Columns("ARREARS_PERIOD").Visible = True
                   .Columns("REPAYMENT_FREQ").Visible = False
                   .Columns("REPAYMENT_FREQ_DESC").Visible = True
                   .Columns("TERMS").Visible = False
                   .Columns("STATUS_CODE").Visible = False
                   .Columns("STATUS_CODE_DESC").Visible = True
                   .Columns("STATUS_DATE").Visible = False
                   .Columns("THIRD_PARTY_NAME").Visible = False
                   .Columns("THIRD_PARTY_SOLD").Visible = False
                   .Columns("THIRD_PARTY_SOLD_DESC").Visible = False
                   .Columns("JOINT_LOAN_PARTICIPANTS").Visible = False
                   .Columns("PAYMENT_HISTORY").Visible = False
                   .Columns("PAYMENT_HISTORY_STATUS").Visible = False
                   .Columns("MONTH_END_DATE").Visible = False
                   .Columns("DATE_CREATED").Visible = False
                   .Columns("num").Visible = False
                 
               End With




около.
Columns("STATUS_CODE_DESC").Visible = True


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

Что я уже пробовал:

Попробуй
Для каждой строки как DataGridView в dgvCPA. Rows
Если строки("STATUS_CODE_DESC").значение.tostring () = "раннее поселение", то
строки.[Только Для Чтения] = True
строки.DefaultCellStyle.Цвет Фона = Цвет.Красный
Ещё
строки.[Только Для Чтения] = False
строки.DefaultCellStyle.BackColor = Цвет.Белый
Конец, Если
Следующий
Поймать ex как исключение
Бросок экс
Конец Попытки

0 Ответов