在vb.net中绘制折线图

时间:2013-06-26 04:19:22

标签: sql vb.net graph

这是我在vb.net中绘制图形的函数我将如何用从数据库中搜索的值替换(“Jon”,10),(“Jordan”,8)?

 Private Sub chart_btn_Click(ByVal sender As System.Object, ByVal e As   System.EventArgs) Handles chart_btn.Click

 Chart1.Series("Student").Points.AddXY("Jon", 10)
 Chart1.Series("Student").Points.AddXY("Jordan", 8)
 Chart1.Series("Student").ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Bar
 End Sub

1 个答案:

答案 0 :(得分:1)

Entity Framework将是一个很好的方法。 EF返回表示表的类对象。然后,您创建query并可以应用filters并获得IEnumerable(Of {record}),然后您可以迭代此List并提供记录中的参数。函数更适合解析字段并根据给定字符串返回值。 EF简化了获取数据并将其置于类/属性格式,以便您可以在代码中使用它。 Documentation Tutorial

示例:

For Each rec As Record In dbModel.Records.Where(Function(o) o.clientId = clientId).ToList
   Chart1.Series("Student").Points.AddXY(rec.Name, GetYValue(rec.Amount))
Next

Private Function GetYValue(value As string) As Integer
  Dim result As Integer = 0
  Select Case value
    Case "r"
      result = 0
    Case "b" 
      result = 1
    Case Else 
      result = 2
  End Select
  Return result
End Function