Visual Basic Foro

Hola, alguien me puede ayudar estoy modificando un archivo de excel y debo filtrar varios valores en una columna, ejemplo en la columna C filtrar valor1, valor2,...,valor_n

Esto es lo que estuve probando pero sin resultados

oSheet.Range("c1").Select()
        Arrfilter1(0) = "AJ001"
        oSheet.Range("c1").AutoFilter(Field:=4, Criteria1:=Array("AJ001", "AJ003", "AJ004", "AJ007", "AJ008", "HD002", "HD005", "SJ002", "SJ005", "SJ015", "SJ017", "31201"), VisibleDropDown:=True, Operator:=Excel.XlAutoFilterOperator.xlOr)

Estoy trabajando con vb.net 2015 tengo un winform1 con un datagridview que manda a llamar a un winform2 cuando guardo el dato escrito en winform2 deseo que actualize el datagridview del winform1 atravéz de una función que recibe como parámetro un datagridview el inconveniente es que cuando reviso paso a paso el observo que todo corre bien pero no me actualiza el datagridview

Esta es la función del winform2, le paso el datagridview del winform1
claseDepartamento.mostrarDatos(frmDepartamento.dgvDatos)

'función que actualiza el datagridview
Sub mostrarDatos(ByVal dgv As DataGridView)
        ConexionClass.consulta("SELECT idDepartamento AS ID, nombre AS DEPARTAMENTO FROM dbo.catDepartamentos order by ID", "catDepartamentos")
        dgv.DataSource = ConexionClass.ds.Tables("catDepartamentos")
    End Sub

gracias de antemano

Hola, gracias de antemano, tengo un inconveniente, hay un datagridview que importa los registros de un archivo de excel, al mandar todos esos registros a guardar a la base de datos, verifica si existe el registro, si no existe lo agrega, si existe salta al otro registro y así sucesivamente hasta finalizar, lo que deseo que al momento de finalizar me muestre únicamente los registros nuevos que se agregaron a la base de datos en el datagridview

'método guardar

Public Sub Guardar(ByVal dgv As DataGridView, ByVal agregar As SqlCommand, ByVal cuenta As String)
        Dim totalreg As Integer = 0
        Dim totalgra As Integer = 0
        Try
            'recorriendo el datagridview
            For Each fila In dgv.Rows
                'asignando los valores de cada celda de la fila que se está recorriendo
                Dim monto As Double = 0
                Dim fecha As String = ""
                Dim referencia As String = ""
                Dim descripcion As String = ""
                Dim credito As String = ""
                fecha = fila.Cells("F1").Value
                referencia = fila.Cells("F2").Value
                descripcion = fila.Cells("F3").Value
                credito = fila.Cells("F4").Value
                'verificando si el registro existe
                If Not ExisteRegistro(cuenta, referencia) Then
                    'limpiando los parámetros
                    agregar.Parameters.Clear()
                    'asignando los valores obtenidos de la fila a cada parámetro correspondiente
                    agregar.Parameters.AddWithValue("@cuenta", cuenta)
                    agregar.Parameters.AddWithValue("@fecha", Convert.ToDateTime(fecha))
                    agregar.Parameters.AddWithValue("@referencia", referencia)
                    agregar.Parameters.AddWithValue("@descripcion", descripcion)
                    monto = convertirDolares(fecha, CDbl(credito))
                    agregar.Parameters.AddWithValue("@credito", credito)
                    agregar.Parameters.AddWithValue("@estado", 1)
                    'ejecutando la consuita
                    agregar.ExecuteNonQuery()
                    totalgra = totalgra + 1
                Else
                    totalreg = totalreg + 1
                    Continue For
                End If
            Next
            MsgBox("Se grabaron " + CStr(totalreg) + " transacciones y " + CStr(totalgra) + " estaban repetidos")
        Catch ex As Exception
            MsgBox("Error debido a " + ex.ToString)
        Finally
            con.Close()
        End Try
    End Sub

Hola de antemano, gracias por la ayuda tengo el siguiente inconveniente.

Mi aplicación permite importar contenido de un archivo de excel a un datagridview, con el objetivo de luego mandar a guardar todo el contenido a una BD, una de las columnas tiene tipo fecha pero con el formato "MM/dd/yyyy", esa fecha antes de mandarla a la BD la introduzco en una variable de tipo string, lo que yo quiero es cambiar el formato a "dd/MM/yyyy" y poder enviarla a la BD con ése formato, el código que uso es el siguiente:

Dim fecha As String = ""
fecha = fila.Cells("F1").Value
Dim formato As String = ""
formato = Format(CDate(fecha), "dd/MM/yyyy")
agregar.Parameters.AddWithValue("@fecha", Convert.ToDateTime(formato))

--El error me lo manda al momento de evaluar la fecha "09/13/2017"

Agradezco cada ayuda proporcionada

Gracias de antemano, yo tengo una duda, cómo puedo hacer para poder eliminar las columnas vacías de un datagridview