Visual Basic.NET - Facturas

Buenas tardes a todos!!

Quisiera pediros un consejo, ya que por más vueltas que le doy, no doy con ello.
Tengo una pequeña aplicación de envíos. Lo que quisiera hacer ahora, es facturar. Es decir al mes (o cuando se desee), seleccionar aquellos envíos realizados y crear la factura. No sé como vincular las expediciones deseadas a cada factura.

Estoy un poco perdida, y agradecería me comentaseis cual sería la mejor forma.
Muchas gracias de antemano.
Saludos cordiales

Bueno con la informacion que has proporcionado esta dificil hacerte recomendaciones

Pero si se tratase de que tu prestas servicio de envios a empresas y posteriormente le cobras por el manejo de envios pus podria hacer lo siguiente

En tu control de envios debes de tener un campo que te identifique al cliente
otro que te identifique el tipo de servicio o sea el precio del envio

Luego te creas la aplicacion de facturacion en el cual creas un procedimiento que te facture automaticamente de los envios que tienes registrados en tu aplicacion
puedes generar los por codigo de cliente o general

Y lo que haria el procedimeinto es verificar por periodos de tiempo los envios que has realizado y montarlos en la factura... estos pueden ir concentrados por tipo de servicio o detallado... luego de haberlo factura poner una marca al envio de que ya fuen facturado....

Si tienes una consulta escribeme al correo

Muy buenas!

Por más que lo he intentado, me sigue dando error.
He intentado ponerme en contacto contigo a través del email, pero ha sido devuelto.
Os expongo el código que tengo por si me pudieran decir donde tengo el error.

Me.cmdSeleccionar.Visible = False
Dim Fila As DataRow
Dim idFra As Integer
Dim i As Integer

Dim dtExp As DataTable = ds.Tables("EXPEDICION")
Dim dtFra As DataTable = ds.Tables("Facturas")

For i = 0 To Me.DataGridView1.RowCount - 1
If ds.Tables("EXPEDICION").Rows(i).Item("IDAGENCIA") = Me.txtIDCLIENTE.Text Then
Fila = ds.Tables("Facturas").NewRow
If ds.Tables("facturas").Rows.Count > 0 Then
idFra = ds.Tables("FACTURAS").Rows(ds.Tables("FACTURAS").Rows.Count - 1).Item("IDFACTURA") + 1

Else
idFra = 1
End If

Fila("IDFACTURA") = idFra

Fila("IDCLIENTE") = Me.txtIDCLIENTE.Text
Fila("FECHAEMISION") = Me.cboFechaEmision.Text
Fila("COBRADA") = False
Fila("IMPRESA") = False
ds.Tables("Facturas").Rows.Add(Fila)

End If
Next i

FiltrarPendientesCliente()

'Modificar a facturada la expedicion
For Each row As DataGridViewRow In DataGridView1.Rows

row.Cells("FACTURADO").Value = True
Next
Dim relFraExp As New DataRelation("FraExp", ds.Tables("Facturas").Columns("IDFACTURA"), _
ds.Tables("Expedicion").Columns("IDFACTURA"))
ds.Relations.Add(relFraExp)

bs.EndEdit()
da.Update(ds, "EXPEDICION")
daF.Update(ds, "Facturas")
ds.AcceptChanges()

Me.txtFactura.Text = idFra
MessageBox.Show("Creada Factura Nº: " & idFra)
'Mostrar expediciones facturadas
Dim dv As DataView = ds.Tables("Expedicion").DefaultView

dv.RowFilter = "IDFACTURA='" & Me.txtFactura.Text & "'"
Me.DataGridView1.DataSource = dv

Me da error al actualizar las tablas:Update requiere que UpdateCommand sea válido cuando se pasa la colección DataRow con filas modificadas.

Gracias por su atención. Posiblemente esté haciendo alguna "burrada", por lo que agradecería cualquier comentario, orientación o enlace.
Gracias de nuevo. Abrazos,

Sherezade