If DGV1.Rows(CC_tot).Cells(4).Value = Dset9.Rows(jj).Item("Paper1") And Dset7.Rows(j2).Item("Paper1") >= 35 Then Dim vCC, vTC As Integer vCC = Dset7.Rows(j2).Item("Paper1") vTC = vCC MessageBox.Show(vTC) DGV1.Rows(CC_tot).Cells("PassStudent").Value = Dset7.Compute("COUNT(Paper1)", "") endif
SELECT PassStudent, COUNT(Paper1) AS CountOfPaper1 FROM YourTable GROUP BY PassStudent ORDER BY PassStudent
DGV1.Rows(j1).Cells("PassStudent").Value = Dset7.Compute("Count(Paper1)", "Paper1 >= 35")
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)