24 lines
612 B
VB.net
24 lines
612 B
VB.net
|
Public Class clsGrafica
|
||
|
|
Dim clCpx As New clsComplejo()
|
||
|
|
Dim miTabla As DataTable
|
||
|
|
Dim miDSet As DataSet
|
||
|
|
'Public Sub sbColoresGrid(ByVal miDGrid As DataGrid)
|
||
|
|
' With miDGrid
|
||
|
|
|
||
|
|
' End With
|
||
|
|
'End Sub
|
||
|
|
'Public Sub sbMuestraGrafica(ByVal SQL As String, ByRef miChar As AxMSChart20Lib.AxMSChart, ByVal miTexto As String)
|
||
|
|
' Dim intFlag As Integer
|
||
|
|
|
||
|
|
' intFlag = 0
|
||
|
|
' With miChar
|
||
|
|
' .Text = miTexto
|
||
|
|
' End With
|
||
|
|
|
||
|
|
' miDSet = clCpx.fdtDataSet(SQL)
|
||
|
|
' miTabla = clCpx.fdtDataTable(SQL)
|
||
|
|
|
||
|
|
' miChar.DataSource = miDSet
|
||
|
|
'End Sub
|
||
|
|
End Class
|