Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
Public cnn As Data.SqlClient.SqlConnection
Private DS As New DataSet
Private Adapter As New Data.SqlClient.SqlDataAdapter
Public Sub conectar()
cnn = New Data.SqlClient.SqlConnection("data source=hack;initial catalog=APREM;integrated security=SSPI;persist security info=False;workstation id=sa;packet size=4096;")
cnn.Open()
End Sub
Public Sub desconectar()
cnn.Close()
End Sub
TENGO MI TABLA DE ESTILOS ASI:
Private Sub ChangeGrid()
Dim ts1 As New DataGridTableStyle
ts1.MappingName = "detalle"
DataGrid1.CaptionText = "MINUTA DE PEDIDO"
DataGrid1.CaptionForeColor = Color.Aquamarine
Dim TextCol As New DataGridTextBoxColumn
TextCol = New DataGridTextBoxColumn
TextCol.MappingName = "cantidad_pedido"
TextCol.HeaderText = "CANT"
TextCol.Alignment = HorizontalAlignment.Left
TextCol.Width = 20
ts1.GridColumnStyles.Add(TextCol)
TextCol = Nothing
DataGrid1.TableStyles.Add(ts1)
End Sub
TENGO MI FORM1 CON UNA CONSULTA CHIQUITA ASI:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
call ChangeGrid()
Try
Dim Comando As SqlClient.SqlCommand = New SqlClient.SqlCommand
Dim objSum As Object
conectar()
Comando.CommandText = "Select cantidad_pedido from detalle where idordendet = '18'"
Comando.Connection = cnn
Adapter.SelectCommand = Comando
Adapter.Fill(DS)
DataGrid1.DataSource = DS.Tables(0)
objSum = DS.Tables(0).Compute("Sum(cantidad_pedido)", Nothing)
TOTAL.Text = (CStr(objSum))
Catch ex As Exception
MsgBox("INGRESE LA CANTIDAD DE LA MESA", MsgBoxStyle.Information)
End Try
End Sub
End Class
TENGO MI FORM CON EL DATAGRID Y UN LABEL QUE ME SACA LA SUMA DE LA COLUMNA, PERO A PESAR DE QUE LLAMO AL TABLESTYLES CHANGEGRID() AL PRINCIPIO ME SIGUE SACANDO EL EL ENCABEZADO cantidad_pedido Y NO "CANT" COMO LE PUSE Y EL NUMERO ES PEQUEÑO Y LA CELDA GRANDOTA, NO SE SI ESTOY LLAMANDO BIEN AL TABLESTYLES O QUE PERO NO ME MUESTRA EL FORMATO QUE ESPECIFIQUE SI ALGUIEN VE ALGUN ERROR EN EL CODIGO PORFA DIGANME, SE LOS AGRADECERE BASTANTE.
