For i As Integer = 0 To ListView1.SelectedItems.Count - 1 Dim strSQL1 As String = "SELECT * FROM Exam_Absent where Stud_Name='" & ListView1.SelectedItems.Item(i).SubItems(1).Text & "'" Dim DaAp1 As New SqlDataAdapter(strSQL1, con) Dim Dset1 As New DataTable DaAp1.Fill(Dset1) DGV1.DataSource = Dset1 Dset1.AcceptChanges() Next i
For Each dr As DataRow In Dset1.Rows Me.DGV1.Rows.Add() With Me.DGV1.Rows(Me.DGV1.Rows.Count - 1) .Cells("Regno").Value = dr("Regno") .Cells("Stud_Name").Value = (dr("Stud_Name")) End With Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)