Private Sub MOD_SUB_DATa1() grp_invwise.Visible = False grp_datewise.Visible = False grp_partywise.Visible = False If MOD_SUB = 1 Then access.addparam("@INVNO", txt_mod_inv_start.Text) access.Execquery(" select INVOICE_NO,INVOICE_DATE,PARTY_NAME,INVOICE_AMOUNT_tax,IGST_TAX,CGST_TAX,SGST_TAX,sl_trancode,ID from invoice WHERE INVOICE_NO=@INVNO ") If noerrors(True) = False Then MsgBox(access.Exception) : Exit Sub dgv_sl.DataSource = access.dbdt End If If MOD_SUB = 2 Then access.addparam1("@INVNO", DateTimePicker1.Value) access.Execquery("select INVOICE_NO,INVOICE_DATE,PARTY_NAME,INVOICE_AMOUNT_tax,IGST_TAX,CGST_TAX,SGST_TAX,sl_trancode,ID from invoice WHERE INVOICE_DATE=@INVNO ") If noerrors(True) = False Then MsgBox(access.Exception) : Exit Sub dgv_sl.DataSource = access.dbdt End If End Sub
access.addparam("@INVNO", txt_mod_inv_start.Value)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)