Private Sub btn_buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_buscar.Click
Dim condi As String = ""
Dim sql As String
If Trim(Me.TextBox1.Text) <> "" Then
condi = " scmanpar like '%" & Trim(Me.TextBox1.Text) & "%'"
End If
If Trim(Me.txt_descrip.Text) <> "" Then
If condi = "" Then
condi = " scmadesc like '%" & Trim(Me.txt_descrip.Text) & "%'"
Else
condi = condi & " and scmadesc like '%" & Trim(Me.txt_descrip.Text) & "%'"
End If
End If
If Trim(condi) <> "" Then
sql = "select scmanart, scmanpar, scmadesc, scasnsuc, scasstto, scasstdi" & _
" from scmaster, scartsuc " & _
" where scmaofic = scasofic " & _
" and scmanart = scasnart " & _
" and " & condi & _
" order by scmanart "
End If
Dim con As Conexion
con = New Conexion
Dim scmas As New Cls_Scmaster
con.abrir()
scmas.cnn = con.cnn
Me.DataGrid1.DataSource = scmas.consulta(sql)
ConfigurarGrilla()
con.cerrar()
End Sub