Вычет разницы значений между двумя Datagridview - Visual Basic .NET

  1. И снова DataGridView Есть 4 DataGridView, в DGV1 в 14 столбце есть данные(11,13,15) в DGV2 в 14 столбце есть данные(4,5,6),в DGV3 во 2 столбце у меня все значения(от 0 до 15), необходимо в DGV4(во 2 столбце) отобразить разницу первых двух DGV1 и DGV2 от DGV3(где все значения), DGV4=DGV3-DGV2-DGV1 т.е.(0,1,2,3,7,8,9,10,12,14). P.S. Данные в DGV1, DGV2, DGV3 ни к чему не привязаны.vb.net1 2 3 4 5 6 7 8 9 10 11 12 13   For Each row5 As DataGridViewRow In DataGridView4.Rows                 For Each row6 As DataGridViewRow In DataGridView1.Rows                                       End If               Next           NextГолова уже кипит от программирования) Помогите доработать код)


textual

Код:

 Dim index As Integer = 14
        Dim dgv1Values() As String = DataGridView1.Rows.Cast(Of DataGridViewRow).Select(Function(r) r.Cells(index).Value.ToString).ToArray
        Dim dgv2Values() As String = DataGridView2.Rows.Cast(Of DataGridViewRow).Select(Function(r) r.Cells(index).Value.ToString).ToArray
       
        For x As Integer = 7 To DataGridView6.Rows.Count - 1
 
            DataGridView8.DataSource = dm
            If Not dgv1Values.Contains(DataGridView6.Rows(x).Cells(1).Value.ToString) And Not dgv2Values.Contains(DataGridView6.Rows(x).Cells(1).Value.ToString) Then
                dm.Rows.Add(DataGridView6.Rows(x).Cells(1).Value.ToString)
 
            End If
 
        Next


Похожие ответы
  1. Уважаемые форумчане,прошу вашей помощи. Есть 5 марок автомоб*илей, у каждой марки свой приоритет: Mer*cedes,BMW,Hyundai,Mi*tshubishi,Nissan. Ка*ждый из сотрудников должен сначала взять по времени самый по*здний Мерс, затем по времени смотрит, ес*ли есть еще свободный Мерс, то закрепляе*тся строго за ней.Ес*ли Мерсы все закрепл*ены, переходит к мар*ке BMW(алгоритм тот же самый), и так все марки. Задача: отсл*еживать в таблице тех сотрудников которые взяли в работу авто не по порядку и не по времени красным цветом как в примере.

  1. Здравствуйте! Мне нужно чтобы в текстбоксе было несколько значений. К примеру: 123 или 321. Пытался сделать так:vb.net1 2 3 4 If TextBox1.Text = "123" or "321" Then Form2.Show() Else MsgBox("INVALID!")Не получилось. Выделил первую строчку с "or" Помогите Добавлено: На Private Sub, End Sub не обращайте внимания!

  1. Всем здравствуйте. Существует ли метод, очищающий все ячейки DataGridWiev от значений? Пока я делаю это следующим образом:vb.net1 2 3 4 5 6 7 8 9 10     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         DGW_Clear(dgw1, 24, 25)     End Sub     Private Sub DGW_Clear(ByVal dgw As DataGridView, ByVal row As Integer, ByVal col As Integer)         For i As Integer = 0 To row - 1             For j As Integer = 0 To col - 1                 dgw1(j, i).Value = ""             Next j         Next i     End Subметод dgw1.Rows.Clear() не подходит (ячейки должны остаться пустыми, а не исчезнуть совсем).

  1. Всем здравствуйте. Есть проинициализированный различными значениями двухмерный массив строк s(23,27). Нужно отобразить его содержимое в графическом окне. Делаю так: 1) рисую графический файл с сеткой, присваиваю его свойству Image PictureBox - это подложка. 2) создаю массив меток lbl(23,27) с прозрачным фоном, задаю позицию, размеры этих меток ну и ряд других свойств (шрифт, выравнивание, цвет чернил,...). 3) добавляю этот массив меток в коллекцию PictureBox. 4) инициализирую метки соответствующими значениями из строкового массива s(23,27). Проблема: на офисном компьютере (два ядра по 2,6 GHz, 2 Gb памяти, встроенное видео) картинка появляется с неприятной "анимацией". В течение 1-2 секунд я вижу построчную прорисовку хотя и в ускоренном режиме. На серьёзном компьютере картинка просто быстро, но неприятно мигает. До этого в программе, написанной на VB-6 создание первого ряда из 27 меток производилось в дизайнере и затем этот ряд меток повторялся уже в runtime (Load) ещё 23 раза. Также использовался PictureBox с картинкой сетки (подложкой). Ничего не моргало и мгновенно отображалось даже на Pentium 100 c 128 Mб ОЗУ! Как избавиться от неприятного мигания при создании и размещении меток? (Использование именно Label для отображения значений обуславливается наличием в них таких свойств как выравнивание, смена цвета чернил без смены текста (выделение цветом) ,наличие обработчика события MouseClick)

  1. Если ComboBox1.SelectedItem = "1" или ComboBox1.SelectedItem = "2" То выполняет действие Х Иначе ComboBox1.SelectedItem = "3" Выполняет другое действие.... Как записать выражение или?

  1. Здравствуйте. Дабы не создавать несколько тем,задам несколько вопросов. 1) У меня боксы с датами(см. скрин). Как сделать проверку на то,изменил ли я дату или нет. (если я не поменяю дату и нажму добавить,то у меня будет ошибка что я занес пустые данные). И как реализовать возможность заносить пустые данные? Допустим не всегда же есть возврат и бронирование. И эти данные заносить просто нет смысла. 2) Как можно сделать неактивными все texbox,до нажатия кнопки добавить?

  1. Здравствуйте, я пытаюсь вставить значение в таблицу. С подключением и таблицей у меня все нормально, а вот вставить значение по параметрам не получается. Я использую данный код: vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim CommandSQL As New OleDbCommand("CREATE TABLE tblOutput (ID INTEGER , " _         & " NameTov TEXT(50) , Price FLOAT, CountTov INTEGER, ReleaseDate Date, ExpryTime INTEGER)", cn)           CommandSQL.ExecuteNonQuery()                 Dim i As Integer         For i = 0 To RowCount - 1             CommandSQL.CommandText = "INSERT INTO tblOutput(ID,NameTov,Price,CountTov,ReleaseDate," _             & "ExpryTime) VALUES(@ID, @NameTov, @Price, @CountTov, @RDate, @ETime)"             CommandSQL.Parameters.AddWithValue("@ID", Dani.Item(i).id)             CommandSQL.Parameters.AddWithValue("@NameTov", Dani.Item(i).NameTov)             CommandSQL.Parameters.AddWithValue("@Price", Dani.Item(i).Price)             CommandSQL.Parameters.AddWithValue("@CountTov", Dani.Item(i).Count)             CommandSQL.Parameters.AddWithValue("@RDate", Dani.Item(i).ReleaseDate)             CommandSQL.Parameters.AddWithValue("@ETime", Dani.Item(i).ExpryTime)               CommandSQL.ExecuteNonQuery()           NextВ результате первая запись дублируется на все остальные, как это исправить? Заранее Спасибо. Не по теме: Извините, если решение банальное,просто у меня совсем нету опыта работы с БД через vb net

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

  1. Доброго времени суток Есть некий сайт допустим www.mysite.ru и там код с допусти 10 тегами Если я буду делать парсинг по этой функции:vb.net1 2 3 4 5 6 7 8 9 10 Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String) As String         Dim iPos As Integer, iEnd As Integer         Dim strResult As String         iPos = strSource.IndexOf(strStart, 0)         iEnd = strSource.IndexOf(strEnd, iPos + strStart.Length)         If iPos <> -1 AndAlso iEnd <> -1 Then             strResult = strSource.Substring(iPos + strStart.Length, iEnd - (iPos + strStart.Length))         End If         Return strResult End FunctionТо я получу только самый первое совпадение. А мне надо все. Как сделать так что бы содержмое во всех тегах записалось в ListBox? Пробовал так но ничего не вышло:vb.net1 2 3 While Result = Pars(HtmlText, (""), (""))        ListBox1.Items.Add = Result End While

  1. Имеется массив нужно перемешивать их значения. помогите пожалуйста!vb.net1 2 3 4  Dim myarray(15) As Integer         For i = 1 To 15             myarray(i) = i         Next