01.Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
02. names.Text = cbb1.Text
03.
04. sql = String.Format("select docid,names,billtotal from customer where dgetreport Between '" & dtp1.Value.ToString("yyyy-MM-dd") & "' AND '" & dtp2.Value.ToString("yyyy-MM-dd") & "' AND statusqc like '%" & cbb2.Text & "%' AND teamasset1 like '%" & cbb1.Text & "%' ")
05. DGV1.DataSource = cmd_dataTable()
06.
07.
08. If DGV1.RowCount > 1 Then
09. Dim iTax As Integer = 0
10.
11. For index As Integer = 0 To DGV1.RowCount - 1
12. iTax += Convert.ToInt32(DGV1.Rows(index).Cells(2).Value)
13. Next
14. Label19.Text = iTax
15. End If
16.
17. End Sub
