各位老师大侠们，我再窗体中放了一个图表控件和一个Table控件，

图表和table控件的数据源都来自交叉统计表“实时库存统计表", 代码如下，但是，图表会根据实时库存数量变化而变化，但是Table表中的数据没变更新。（图表中第10个料号数量有变化，下面的数据表第10项没有数据变化，数据源都是交叉统计产生的统计表）

请老师大侠指教，不知道原因在哪儿！ 叩谢！！！

DataTables("入库主表").LoadTop = "10000"
DataTables("入库主表").LoadOrder = "入库日期 Desc"
DataTables("入库主表").Load
DataTables("入库主表").LoadChildren("入库记录表", "收货发票号", "收货发票号")

Dim Filter1 As String
Filter1 = "核销 = 0"
DataTables("入库记录表").LoadFilter = Filter1
DataTables("入库记录表").Load()

\'================================

Dim YMax As WinForm.TextBox = e.Form.Controls("Y最大值")
Dim YMin As WinForm.TextBox = e.Form.Controls("Y最小值")
Dim cxsj As WinForm.DateTimePicker = e.Form.Controls("查询时间")
cxsj.value=now()

Dim g As New GroupTableBuilder("实时库存统计表", DataTables("入库记录表"))
g.Groups.AddDef("料号")
g.Groups.AddDef("品名")
g.Totals.AddDef("剩余数量")
g.Totals.AddDef("库存_良品")
g.Totals.AddDef("库存_不良品")
g.Totals.AddDef("库存_待处理品")
g.Totals.AddDef("库存_冻结产品")
dim t  as table = e.form.controls("Table1").Table
t.DataSource  = g.BuildDataSource
t.sort="料号"
t.Font =New Font("微软雅黑",9,FontStyle.Regular)
MainTable = Tables("主表")

\'========================产生图表=================================
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量

Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar
Chart.ChartType2 = ChartTypeEnum.XYPlot
Chart.AxisY.Min = YMin.text  \'指定Y轴的最小值
Chart.AxisY.Max =YMax.text \'指定Y轴的最大值

Chart.AxisY2.Min = YMin.text  \'指定Y轴的最小值
Chart.AxisY2.Max =YMax.text \'指定Y轴的最大值

Chart.SeriesList.Clear() \'清除图表原来的图系
Chart.AxisY.Major = YMax.text*0.1
Series = Chart.SeriesList.Add() \'给图表2增加一个图系
Series.FillColor = Color.DeepSkyBlue \'设置条形图的填充颜色

Series.Length = t.Rows.Count \'设置图系的长度
For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = t.Rows(i)("剩余数量") \'指定垂直坐标
    Chart.AxisX.SetValueLabel(i, i+1) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示
Series.DataLabelText = "{#YVAL}"

\'=====================
\'--------Chart.SeriesList2.Clear() \'清除图表原来的图系
Chart.SeriesList2.Clear() \'清除图表原来的图系
Chart.AxisY2.Major = YMax.text*0.1
Series = Chart.SeriesList2.Add() \'给图表2增加一个图系
Series.FillColor = Color.Red \'设置条形图的填充颜色
Series.MarkShape = MarkShapeEnum.none

Series.Length = t.Rows.Count \'设置图系的长度
For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = 1000 \'指定垂直坐标 (安全库存)
    \'Chart.AxisX.SetValueLabel(i, t.Rows(i)("料号")) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示

大红袍老师，我按照你的方法进行了修改，还是不能更新。

后来我在打开这个窗体的命令中采用“打开窗体---关闭窗体---打开窗体”它更新了，

相当于多打开一次！

呵呵，具体也不知道什么原因！

 不可能，请照抄3楼代码。不会做，就上具体实例