Camilo Andres

Hello I have the following problem, when my graph has a single value ant this isnegative this is not displayed properly, but if they are multiplesvalues negative and positive then this is shown correctly For example Case Incorrect if Data Source is = { (1,-5) } The graph is empty Incorrect Correct Case if Data Source is { (1,-5) , (1,8) } The graph is properly visualization The code Public Sub New() ' This call is required by the Windows Form Designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. InitGraph() newChart.DataSourceSettings.DataSource = Me.InitData("") End Sub Private Sub InitGraph() Dim ConditionalAttributes1 As SoftwareFX.ChartFX.ConditionalAttributes = New SoftwareFX.ChartFX.ConditionalAttributes Dim ConditionalAttributes2 As SoftwareFX.ChartFX.ConditionalAttributes = New SoftwareFX.ChartFX.ConditionalAttributes Me.newChart.AxisY.LabelsFormat.Decimals = 0 Me.newChart.AxisY.LabelsFormat.Format = SoftwareFX.ChartFX.AxisFormat.Number Me.newChart.AxisX.LabelAngle = 90 ConditionalAttributes1.AlternateColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) ConditionalAttributes1.Color = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) ConditionalAttributes1.Condition.To = 0 ConditionalAttributes1.Legend = "Corto" ConditionalAttributes2.Condition.From = 0 ConditionalAttributes2.Legend = "Largo" ConditionalAttributes2.Series = 1 Me.newChart.ConditionalAttributes.AddRange(New SoftwareFX.ChartFX.ConditionalAttributes() {ConditionalAttributes1, ConditionalAttributes2}) Me.newChart.Dock = System.Windows.Forms.DockStyle.Fill Me.newChart.Location = New System.Drawing.Point(0, 25) Me.newChart.Name = "newChart" Me.newChart.Size = New System.Drawing.Size(150, 125) Me.newChart.TabIndex = 3 End Sub Public Shadows Function InitData(Optional ByVal Filter As String = "") As Object Dim RmtDs As Finac.RemoteDataSet.RemoteDataSet = Finac.RemoteDataSet.RemoteDataSet.GetInstance Dim dv As New DataView(RmtDs.Tables("f_pos"), Filter, "ESPECIE ASC", DataViewRowState.CurrentRows) If dv.Count = 0 Then Return 0 Else Return dv.ToTable(False, New String() {"ESPECIE", "POSICION_NETA"}) End If End Function Help me please