hola a todos, tengo un problema y les agradecere infinitamente al que pueda ayudarme... miren estoy tratando de elaborar un sistema de facturacion en mi trabajo...es una pequeña empresa pero se que les va ser util.. creo que de la "A" a la "Z" estoy en la A, digo esto por que estoy comenzando por hacer mantenimientos de clientes, proveedores y otros...el caso es que logre enlazar un dataenviroment con instruccion sql en un DataGrid y me funciona como queria pero no el 100% ya que mi intencion tambien era dar colores a las columnas filas ect... ahora viendo en varios foros recomiendan utilizar el MSFlexgrid (Microsof FlexGrid control 6.0) pero no tengo conocimento de este pero se que es bueno siempre aprender y se que me ayudaran..
bueno anteriormente usando el datagrid me era facil por que tan solo ponia en propiedades : datasource:Datazaga y en datamember:Cmdclientes1 y listo
mi pregunta es como hacer con MsFlexgrid, ahora llevo varios dias y tengo esto en mi codigo, pero quiero conectar el dataeviroment.. presumo que tengo que cambiar algo aqui nomas..bueno si estoy equivocado le agradecere corregirlo
Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
ChDir App.Path
Cn.ConnectionString = "Zaga.mdb"
Cn.Open
rs.Open "SELECT * FROM CLIENTE", Cn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
configurar_grilla
Do While Not rs.EOF
Grid1.AddItem rs.Fields("COD_CLIENTE") & vbTab & rs.Fields("RAZON_SOCIAL")& vbTab & rs.Fields("NOMBRE_COMERCIAL") & vbTab & rs.Fields("RUC")
rs.MoveNext
Loop
End Sub
Private Sub configurar_grilla()
On Error GoTo err
With Grid1
.FixedCols = 0
.Cols = 0
.FixedRows = 1
.Rows = 1
.SelectionMode = flexSelectionByRow
.AllowUserResizing = flexResizeColumns
.FormatString = " Codigo |Razon Social |Nombre "
End With
Exit Sub
err:
Resume Next
End Sub
gracias, manuel
