Ver Mensaje Individual
  #3 (permalink)  
Antiguo 26/06/2010, 17:21
Avatar de sanctusbellicosus91
sanctusbellicosus91
 
Fecha de Ingreso: marzo-2010
Mensajes: 23
Antigüedad: 14 años, 9 meses
Puntos: 0
Respuesta: es lo ultimo q les pido aquí porfavor

Cita:
Iniciado por jaullo Ver Mensaje
Mmmm....

Código ASP:
Ver original
  1. Private Sub CreateGraph_DataSource(z1 As ZedGraphControl)
  2.     Dim myPane As GraphPane = z1.GraphPane
  3.  
  4.     ' Set the titles
  5.     myPane.Title.Text = "DataSourcePointList Test"
  6.     myPane.XAxis.Title.Text = "Date"
  7.     myPane.YAxis.Title.Text = "Freight Charges ($US)"
  8.  
  9.     ' Create a new DataSourcePointList to handle the database connection
  10.     Dim dspl As New DataSourcePointList()
  11.     ' Create a TableAdapter instance to access the database
  12.     Dim adapter As New NorthwindDataSetTableAdapters.OrdersTableAdapter()
  13.     ' Create a DataTable and fill it with data from the database
  14.     Dim table As NorthwindDataSet.OrdersDataTable = adapter.GetData()
  15.  
  16.     ' Specify the table as the data source
  17.     dspl.DataSource = table
  18.     ' The X data will come from the "OrderDate" column
  19.     dspl.XDataMember = "OrderDate"
  20.     ' The Y data will come from the "Freight" column
  21.     dspl.YDataMember = "Freight"
  22.     ' The Z data are not used
  23.     dspl.ZDataMember = Nothing
  24.     ' The Tag data will come from the "ShipName" column
  25.     ' (note that this will just set PointPair.Tag = ShipName)
  26.     dspl.TagDataMember = "ShipName"
  27.  
  28.     ' X axis will be dates
  29.     z1.GraphPane.XAxis.Type = AxisType.[Date]
  30.  
  31.     ' Make a curve
  32.     Dim myCurve As LineItem = z1.GraphPane.AddCurve("Orders", dspl, Color.Blue)
  33.     ' Turn off the line so it's a scatter plot
  34.     myCurve.Line.IsVisible = False
  35.  
  36.     ' Show the point values. These are derived from the "ShipName" database column,
  37.     ' which is set as the "Tag" property.
  38.     z1.IsShowPointValues = True
  39.  
  40.     ' Auto set the scale ranges
  41.     z1.AxisChange()
  42. End Sub
____________________________




gracias jaullo me a servido mucho tus consejos