traducir codigo de C# a VB .NET

[Bazookao]

hola tengo el siguiente codigo

Código:

private void btAnadir_Click(object sender,System.EventArgs e)
{
DataTable miTabla=dataSet1.tabla1;
DataRowCollection cfilas=miTabla.Rows;//aqui no puedo declaralo en VB
DataRow nuevaFila;
nuevaFila=miTabla.NewRow();
//columnas de la tabla
nuevaFila[0]="nombre";
nuevaFila[1]="Direccion";
nuevaFila[2]="Telefono";
nuevaFila[3]="Observaciones";
cfilas.add(nuevaFila);//nu pudeo poner esto en VB por que no puedo declara la variable
botonUltimo.PerfomClick();//hace click en ultimo para mandar la posicion al final
textNombre.Focus();//enfocar caja de texto
}

lo que hace es añadir un registro en una tabla de datos

pero no puedo hacer

Código:

Dim cFilas As New DataRowCollection

me dice que "el tipo no tieen ningun constructor"

hasta ahora tengo

Código:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim mitabla As New DataTable
        mitabla = DataSet11.Tabla1
        Dim cFilas As New DataRowCollection'aqui manda error
        Dim nfila As DataRow

        nfila = mitabla.NewRow
        nfila(0) = "Expr1"
        nfila(1) = "Expr2"
        nfila(2) = "Expr3"
        nfila(3) = "Expr4"
        cFilas.Add(nfila)
        Button4.PerformClick()
    End Sub

ayuda

[gnzsoloyo]

Lo que a mi enteder sucede es que estás suponiendo que una instancia de la clase DataRowCollection es necesaria para realizar la tarea que deseas. Y no es así.
Si entiendo bien la idea, lo que quieres es ingresar un registro con una cantidad X de datos en una tabla perteneciente al DataSet Tabla1. Para hacer eso no es necesario instanciar la colección de Rows o incluso crear una referencia a ella. Para eso solamente tienes que insertar el registro creado en la tabla a que pperteneces.
Incluso sobrecargar la clase DataSet creando una clase DataSet11 no tiene mucho sentido si no es por ortodoxia programática.
El tema aquí es que la forma má simple de hacer algo parecido es:

Código VB.Net:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim mitabla As New DataTable
        mitabla = DataSet11.Tables("Tabla1")
        Dim nfila As DataRow
        nfila = mitabla.NewRow
        nfila.Item(0) = "Expr1"
        nfila.Item(1) = "Expr2"
        nfila.Item(2) = "Expr3"
        nfila.Item(3) = "Expr4"
        mitabla.Add(nfila)
        Button4.PerformClick()
    End Sub
 

De hecho, para que quede claro, desde el momento en que haces esto:

Código VB.Net:

nfila = mitabla.NewRow
 

ese DatoaRow solamente puede ser insertado en la tabla mitabla, porque pertenece a ella.

[Bazookao]

muchas gracias me has ayudado mucho

[gnzsoloyo]

Hay un tip mas:
Se suele necesitar utilizar un subconjunto de registros ante determinadas circunstancias. Por ejemplo, cuando quieres operar en ese subconjunto si uno o más de las columnas cumplen un determinado criterio. Para eso si obtienes una referencia a un subconjutno, pero la forma es por medio del método Select de los DataTable.
Me explico: Supongamos que quieres operar sobre el subconjunto de una tabla (Tabla1) cuando el campo "ID" sea igual o mayor a 10. Eso sería:

Código VB.Net:

Dim oRows() as DataRow
oRows = DataSet1.Tables("Tabla1").Select("ID >= 10")
 

Como verás, para obtener el subconjunto debes crear un array de DataRows. Luego realizas un Select con el o los parámetros en forma de string. Ese modo de operar sobre la tabla te devuelve la referencia a un subconjunto de registros de la tabla, en forma de array.
Luego puedes tratar cada uno de los DataRows del array, recordando que para acceder a un item el prototipo es (en mi ejemplo) : oRows(indice).Item(indice o nombre)...

[Bazookao]

muchas gracias a gnzsoloyo por su aportacion

tambien paso a aclara un pequñito error que tiene el codigo

Código VB.NET:

mitabla.Add(nfila)
 

de ser sustituido por

Código VB.NET:

mitabla.Rows.Add(nfila)