主题：[求助]列筛选排序的问题

参考代码，TextChanged事件

 

Dim lm As String = e.Sender.Text
Dim t As Table = Tables("表A")
If t.cols.Contains(lm) Then
    t.filter = lm & " is not null"
    t.cols(lm).move(0)
End If

Dim lm As String = e.Sender.Text
Dim t As Table = Tables("表A")
If t.cols.Contains(lm) Then
    t.filter = lm & " is not null"
    t.cols(lm).move(0)
    t.sort = lm
End If

Dim lm As String = e.Sender.Text
Dim t As Table = Tables("表A")
If t.cols.Contains(lm) Then
    t.filter = lm & " is not null"
    t.cols(lm).move(0)
    t.sort = lm & " desc"
End If 

代码没问题的，不会报这个错。做个例子发上来看看。

Dim lm As String = e.Sender.Text
Dim t As Table = Tables("窗口2_标样成分表")
If t.cols.Contains(lm) Then
    t.filter = lm & " is not null"
    t.cols(lm).move(2)
    t.sort = lm & " desc"
End If

1、实例发上来

 

2、把图表学一下 http://www.foxtable.com/webhelp/scr/0968.htm

 

3、http://www.foxtable.com/webhelp/scr/1018.htm

 

Dim bybh As WinForm.ComboBox = e.Form.Controls("标样编号")
Dim ys As String = e.Form.Controls("元素").Text
Dim lb As WinForm.Label = e.Form.Controls("Label1")
If Tables("标样使用记录").cols.Contains(ys) Then
    e.Form.Controls("Chart1").Visible = True
    Dim Chart As WinForm.Chart '定义一个图表变量
    Dim Series As WinForm.ChartSeries '定义一个图系变量
    Dim t As Table = Tables("标样使用记录") '定义一个变量t引用数据表
    t.filter = "标样编号 = '" & bybh.text & "' and " & ys & " is not null"
    Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
    Chart.SeriesList.Clear() '清除图表原来的图系
    Chart.LegendVisible = False
    Chart.AxisX.Major = 1
    'Chart.AxisY.Major = 0.2
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = t.Rows.Count '图系的数据点数等于表的行数
    Series.TooltipText = "Y = {#YVAL}"
    For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
        Series.X(i)= i '指定水平坐标
        Series.Y(i) = val(t.Rows(i)(ys)) '指定垂直坐标
    Next
    Dim c As Col = t.Cols(ys)
    lb.text = "标准偏差 = " & t.Aggregate(AggregateEnum.Std, 0, c.Index, t.Rows.count-1, c.Index)
   
    Chart.AxisX.AnnoWithLabels = True '启用字符标示
    Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
   
    '-----------------------个性化图表------------------------
   
    Chart.HeaderText = e.form.controls("元素").Text & "含量数据分析"
    Chart.AxisY.Text = e.form.controls("元素").Text & "含量/%"
End If

If ys = "" Then
    MessageBox.Show("请选择要分析的元素名称")
    Return
End If

把你项目里面的bin文件夹删除，重新打开项目，即可。