Dev Express图表未在Vb.net中更新第二次

Question

第一次运行我的窗口应用程序时，它将成功运行，但是当我更改数据库列和绑定时，它会给出一个错误，即数据库中没有特定的数据列;我也是制作空图表数据源，但它给出了一个错误。请帮忙。

Dim ctrArr As Integer
Dim serCnt As Integer
Dim series1 As New Series
Dim seriesFound As Boolean = False

For serCnt = 0 To ctrChart.Series.Count - 1
    ctrChart.Series(0).ArgumentDataMember = ""
    ctrChart.Series(0).ValueDataMembers(0) = ""
    ctrChart.Series(0).Visible = False

Next


For ctrArr = 0 To gStrYAxisParamArray.Length - 1   'deptname'     
    For serCnt = 0 To ctrChart.Series.Count - 1
        If UCase(Trim(gStrYAxisParamArray(ctrArr))) = UCase(ctrChart.Series(serCnt).Name.ToString) Then
            ctrChart.Series(serCnt).ArgumentDataMember = ""
            ctrChart.Series(serCnt).ValueDataMembers(0) = ""
            ctrChart.Series(serCnt).Visible = True

            ctrChart.Series(serCnt).ArgumentDataMember = gxAxis
            ctrChart.Series(serCnt).ValueDataMembers.Item(0) = Trim(gStrYAxisParamArray(ctrArr))
            seriesFound = True

            Exit For
        End If
    Next
    If seriesFound = False Then
        series1 = New Series(Trim(gStrYAxisParamArray(ctrArr)).ToString, ViewType.Bar)
        'ctrChart.Series.AddRange(New Series() {series1, series2})
        ctrChart.Series.Add(series1)
        series1.ArgumentDataMember = ""
        series1.ValueDataMembers(0) = ""
        series1.Visible = True
        series1.ArgumentDataMember = gxAxis
        series1.Label.Border.Visible = False
        series1.ValueDataMembers(0) = Trim(gStrYAxisParamArray(ctrArr))
        series1.LegendText = Trim(gStrYAxisParamArray(ctrArr).ToString)
    End If
    seriesFound = False
Next

cmbSeries.Items.Clear()
For ctrArr = 0 To ChrtStockDept.Series.Count - 1
    With cmbSeries.Items
        cmbSeries.Items.Add(ChrtStockDept.Series(ctrArr).Name.ToString)
    End With
Next