DataGridView - подсчёт строк по условию - Visual Basic .NET

  1. Как правильно будет посчитать кол-во строк по условию. Например есть столбец, в столбце данные, и уже с этими данными работать. Картинку прилагаю, в ней будет видно что я хочу. vb.net1 2 3 4 5 6   Dim y As Object         Dim sum As Object         For y = 0 To DataGridView3.RowCount - 1             sum += DataGridView3.Rows(y).Cells(14).Value()             DataGridView7.Rows(0).Cells(1).Value = y         Next 'Заранее Спасибо!


textual

Код:

DataGridView1.Rows(i).Cells(2).Value.ToString().Contains("Nissan")


Похожие ответы
  1. Доброе время суток. Подскажите пожалуйста, как использовать условие отображения информация в DataGridView1 если в DataGridView2 имееются похожие записи?vb.net1 2 3 4 5 6 7         For i = 0 To DataGridView1.Rows.Count - 1             For ii = 0 To DataGridView2.Rows.Count - 1                 If DataGridView1.Rows(i).Cells(0).Value.ToString Like DataGridView2.Rows(ii).Cells(0).Value.ToString Then                     DataGridView1.Rows(i).Cells(0).Value = "ADMIN"                 End If             Next         Next

  1. Можно ли с помощью бейсик создать скринсейвер?

  1. Здравствуйте! Для загрузки содержимого сайтов пользовался подобными методами:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22         Dim oHttp As Object         Dim strURL As String           strURL = "https://www.instagram.com/"           On Error Resume Next         oHttp = CreateObject("MSXML2.XMLHTTP")         If Err.Number <> 0 Then             oHttp = CreateObject("MSXML.XMLHTTPRequest")         End If         On Error GoTo 0         If oHttp Is Nothing Then             MsgBox("Не удалось инициализировать объект MSXML!")             Exit Sub         End If           oHttp.Open("GET", strURL, False)         oHttp.Send()         TextBox1.Text = oHttp.ResponseText         Debug.Print(oHttp.ResponseText)         oHttp = Nothing         MsgBox("Данные успешно импортированы!", vbInformation)илиvb.net1 2 3 4 5 6 7 8         Dim client As New WebClient     'Создаем объект client класса WebClient         Dim url As String = "https://www.shutterstock.com/ru/"  'Создаём строку для хранения 'url         Dim stream As Stream  'Создаём объект stream класса Stream         stream = client.OpenRead(url)  'Считываем данные         Dim reader As New StreamReader(stream)  'Создаём объект reader 'класса StreamReader         Dim result As String = reader.ReadToEnd() 'Используем метод         'ReadToEnd() ' для чтения содержимого потока до конца         MsgBox(result) 'Выводим содержимое переменной resultИ эти способы прекрасно, пока не попытался считать сайт https://www.shutterstock.com/ru/ При загрузке постоянно выдает ошибку и загрузка прерывается. Почему это происходит? Авторизация тут не важно, мне необходима информация только на главной странице или на страницах поиска, но они открыты и без авторизации.

  1. Помогите пожалуйста прописать открытие готового файла из папки. Понимаю что код написан криво,но потом я его исправлю. vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38                   Dim oExcel As Object     Dim oBook As Object     Dim oSheet As Object     Dim SaveAs As Object     Dim klient As Object      oExcel = CreateObject("Excel.Application")         oBook = oExcel.Workbooks.Add             'Добавить данные в ячейки первого листа новой книги         oSheet = oBook.Worksheets(1)         oSheet.Range("A1:B1").Merge()         oSheet.Range("A2:B2").Merge()         oSheet.Range("C2:D2").Merge()         oSheet.Range("C3:D3").Merge()         oSheet.Range("C4:D4").Merge()         oSheet.Range("C5:D5").Merge()         oSheet.Range("A1:D1").Font.Bold = True         oSheet.Range("A1").HorizontalAlignment = -4152         oSheet.Range("C1").HorizontalAlignment = -4131         oSheet.Range("A1").Value = "Договор №"         oSheet.Range("C1").Value = KartaDataGridView.CurrentRow.Cells(0).Value         oSheet.Range("A2").Value = "Вид договора:"               oSheet.Range("A5").Value = "Дата заключения:"         oSheet.Range("C5").Value = KartaDataGridView.CurrentRow.Cells(5).Value           'Сохранить книгу и закрыть Excel           oBook.SaveAs("D:\T2 " & KartaDataGridView.CurrentRow.Cells(0).Value & ".xlsx")         oExcel.Quit()         Process.Start("D:\T2 " & KartaDataGridView.CurrentRow.Cells(0).Value & ".xlsx")

  1. Требуется нарисовать концентрические окружности уменьшающегося радиуса. Радиус каждой следующей окружности равен 9/10 радиуса предыдущей. Рисование прекращается, когда радиус становится равным минимальному значению Rmin = 1.vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Class Form1     Dim R As Single     Dim Rmin As Single     Dim graphics As Graphics       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         graphics = PictureBox1.CreateGraphics()         R = 8         Rmin = 1         Call ConcentricCricles(R, Rmin)     End Sub       Sub ConcentricCricles(ByVal R As Single, ByVal Rmin As Single)         If R > Rmin Then             graphics.DrawEllipse(Pens.Black, 0, 0, R, R)             R = 0.9 * R             Call ConcentricCricles(R, Rmin)         End If     End Sub End ClassНе могу понять как именно делать вывод, на форме ничего нет.

  1. Есть документ .dot/ Кидаю в ресурсы, как к нему обратиться ? Т есть я не могу просто так: vb.net1 Dim fileName As Object = "Квитанция на оплату.dot"А надо такvb.net1 Dim fileName As Object = "C:\Users\Ильнар\Documents\Visual Studio 2013\Projects\Кушнаренков-ТВ Приложение для персонала\Кушнаренков-ТВ Приложение для персонала\Resources\Квитанция на оплату.dot"Если в папку с программой кидаю, тоже ошибка, что файл не обнаружен. Help Me !

  1. На форме есть 2 Combobox, Текстовое поле и 2 кнопки. в Combobox - выпадающий список с названием улиц. (Программно задается). Базы никакой нет. Например: Арсенальная Арефьева Васина Васенко Вводим в текстовое поле часть названия улицы, или полное название, нажимаем на кнопку и в новый Combobox2 копируются эти названия улиц( или одно название). А при нажатии на вторую кнопку (Сброс), все возвращается в исходное положение. Заранее спасибо за помощьДобавлено через 2 часа 7 минут Решил все таки данные брать из текстового файла:vb.net1 2 3 4 5 6  Try             ComboBox1.Items.Clear()             ComboBox1.Items.AddRange(IO.File.ReadAllLines(Application.StartupPath & "\city.txt", System.Text.Encoding.Default))         Catch ex As Exception             MessageBox.Show(ex.Message.ToString())         End TryТогда наверно поиск можно будет осуществить по текстовому файлу с выводом искомой строки в Combobox. Подскажите, как это сделать? заранее спасибо

  1. Как сделать так что бы при наведении на запись(ее выделении) она показывалась полностью в выплывающем окне? То есть если в Combobox запись не полностью помещается, навел на нее, и она отобразилась полностью?

  1. vb.net1 2 3 4 5 6 7 8 9             Dim Word As Object             Word = CreateObject("Word.Application")             Word.Documents.Open("C:\Users\Ильнар\Desktop\Квитанция на оплату.doc") 'открываем документ             Word.Visible = True               With Word.Selection.Find                 .Execute(Replace("Ф!И!О", 0, 0)) 'что ищем                 Word.Selection.Text = TextBoxX4.Text & " " & TextBoxX1.Text & " " & TextBoxX2.Text 'на что меняем             End WithТак заменяет только 1 найденное слово. Как заменить все ?

  1. Как сделать что бы программа запускалась вместе с Windows?