Buenas, quiero cambiar el tamaño de las celdas, como lo puedo hacer?
El codigo es el siguiente:
Private Function actualiza(ByVal oComando As DataSet) As DataSet
Dim pConexionOledb As OleDbConnection
Dim sCadena As String
Dim pPoner As OleDbCommand
Dim oDataAdapter As OleDbDataAdapter
Dim oCB As OleDbCommandBuilder
Dim oDataSet As DataSet
Dim agrega As DataSet
Dim Seleccion As String
Dim oDS As DataSet
Dim iDiasMes As Integer
Dim iData As Integer
Dim i As Integer = 1
Dim dFormatNormal As Date
Dim Fechas As String
oDS = New DataSet 'creamos el dataset
oDS.Tables.Add("Exportar")
sCadena = "Provider=Microsoft.jet.oledb.4.0;Data source=" & "c:\Horario.mdb"
pConexionOledb = New OleDbConnection
pConexionOledb.ConnectionString = sCadena
'ponemos las filas
Dim pRow As DataRow
Dim j As Integer
oDS = Conexion.Seleccion("Select Trabajador from Informacion order by Codigo")
For j = 0 To oDS.Tables(0).Rows.Count - 1
pRow = oDS.Tables(0).NewRow '.Add(New String() {})
oDS.Tables(0).Rows.Add(pRow)
Next
' 1. Calcular el número de días que tiene el mes
' 2. Poner las columnas
iDiasMes = Me.DiasDelMes(Now.Month)
For i = 1 To iDiasMes
iData = Now.Year * 10000 + (Now.Month) * 100 + i
dFormatNormal = Japo2DateTime(iData)
If dFormatNormal.DayOfWeek <> DayOfWeek.Saturday And _
dFormatNormal.DayOfWeek <> DayOfWeek.Sunday Then
Fechas = Format("dd/mm/yyyy", dFormatNormal)
oDS.Tables(0).Columns.Add(Fechas)
Seleccion = "SELECT * from Exportar"
End If
Next
'crear adaptador
oDataAdapter = New OleDbDataAdapter(Seleccion, pConexionOledb)
'contamos el numero de columnas, ha de devolver las mismas columnas que dias del mes
Dim iColumnas As Integer
Dim iFilas As Integer
iColumnas = oDS.Tables(0).Columns.Count
iFilas = oDS.Tables(0).Rows.Count
'crear comandbuilder
oCB = New OleDbCommandBuilder(oDataAdapter)
'asignar dataset al datagrid
Me.UltraGrid1.DataSource = oDS
Me.UltraGrid1.DataBind()
Return oDS
End Function
