0

这是我在 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
4

1 回答 1

1

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

例子：

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
于 2013-06-26T04:41:05.773 回答