client/ClasesModulos/clsGrafica.vb

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