界面问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，降序是DESC，升序是什么？是ASCE吗？帮助里看不到。

知道了，没有升序的选项，默认就是升序的。

老师好，下面的代码红色部分报错，提示：未将对象引用设置到对象的实例。请问怎么改动？

窗体Data View已经打开。

Dim Productionchart As DataTable=DataTables("ProjectListAll")

Dim drProductionChart As Row=Tables("ProjectListAll").Current

Dim drChart As List(Of DataRow)

drChart = DataTables("ProjectListAll").Select("[Block] ='" & selectednodename & "'")

Dim Chart2 As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim tProd As Table = Tables("ProjectListAll") '定义一个变量t引用数据表

Chart2= Forms("Data View").Controls("Productionchart") '

Chart2.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart2.DataSource ="ProjectListAll" '设置绑定表

Chart2.SeriesList.Clear() '清除图表原来的图系

Series.Length =drChart.count

messagebox.show("Series.Length=" & Series.Length)

Chart2.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length =drChart.count

[此贴子已经被作者于2017/3/17 20:41:44编辑过]

谢谢老师。老师您看看下面的代码，程序运行正常，也没有报错，但是图表没有结果，也就是数据没有在图表图示出来。估计是红色部分出错，不知道怎么改，您看看如何改代码，谢谢指导。

Dim Productionchart As DataTable=DataTables("ProjectListAll")

Dim drProductionChart As Row=Tables("ProjectListAll").Current

Dim drChart As List(Of DataRow)

drChart = DataTables("ProjectListAll").Select("[Block] ='" & selectednodename & "'")

Dim Chart2 As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim tProd As Table = Tables("ProjectListAll") '定义一个变量t引用数据表

Chart2= Forms("Data View").Controls("Productionchart")

Chart2.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart2.DataSource ="ProjectListAll" '设置绑定表

Chart2.SeriesList.Clear() '清除图表原来的图系

Series = Chart2.SeriesList.Add()

Series.Length =drChart.count

messagebox.show("Series.Length=" & Series.Length)

Tables("ProjectListAll").Sort = "Date"

Dim ChartDate As String=e.sender.value

For Each c As Col In tProd.Cols

If drProductionChart("Block")=selectednodename And drProductionChart("Type")="2D"

Series = Chart2.SeriesList.Add() '增加一个图系

For iChart As Integer = 0 To Series.Length-1

Series.Text = c.Name '设置图系的标题

Series.X.DataField = "Date" 'X轴绑定到日期列

Series.Y.DataField = "T2D_PrimeProduction" '设置Y轴的绑定列

End If

If drProductionChart("Block")= selectednodename And drProductionChart("Type")="3D"

messagebox.show("ok11")

If c.name="T3D_InfillProduction" Or c.name="T3D_PrimeProduction"

Series = Chart2.SeriesList.Add() '增加一个图系

messagebox.show("ok12")

For iChart As Integer = 0 To Series.Length-1

Series.Text = c.Name '设置图系的标题

Series.X.DataField = "Date" 'X轴绑定到日期列

Series.Y.DataField = "T3D_PrimeProduction" '设置Y轴的绑定列

End If

Chart2.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart2.LegendVisible = True '显示图列

老师，我就是按照那个帮助做的，不知道如何改。

上传实例，并截图说明实际效果

老师好，以下是附件。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:productionchart.zip

此主题相关图片如下：productionchart.png

主题：界面问题