主题：关于图表中数据进行筛选显示的问题 求解！

1、用编码的方式生成图表 http://www.foxtable.com/help/topics/0968.htm 2、你可以在生成的过程中检测有多少个字符，然后控制换行； 或者 http://www.foxtable.com/help/topics/1030.htm 3、设置筛选条件 http://www.foxtable.com/help/topics/2720.htm

1、看方法二； 2、在循环的过程中，判断内容的字符长度，然后处理是否换行； 3、看1；

处理长字符，参考代码

 

Dim s As String = "111113"
Dim rn As Integer = 5
Dim ns As String = ""
If s.Length > rn Then
    ns = s.SubString(0,rn)
    For i As Integer = 2 To Math.Ceiling(s.Length / rn)
        If i = Math.Ceiling(s.Length / rn) Then
            ns &= vbcrlf & s.SubString(rn*(i-1))
        Else
            ns &= vbcrlf & s.SubString(rn*(i-1), rn)
        End If
    Next
Else
    ns = s
End If

msgbox(ns)

很湿望

 

Dim Chart  As WinForm.Chart  '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table =  Tables("客户信息") '定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "客户信息" '设置绑定表
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
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)("合同总款") '指定垂直坐标
   
    Dim s As String = t.Rows(i)("客户姓名")
    Dim rn As Integer = 5
    Dim ns As String = ""
    If s.Length > rn Then
        ns = s.SubString(0,rn)
        For i As Integer = 2 To Math.Ceiling(s.Length / rn)
            If i = Math.Ceiling(s.Length / rn) Then
                ns &= vbcrlf & s.SubString(rn*(i-1))
            Else
                ns &= vbcrlf & s.SubString(rn*(i-1), rn)
            End If
        Next
    Else
        ns = s
    End If
   
    Chart.AxisX.SetValueLabel(i,  ns)'在位置4插入456) '指定字符表示
Next
Series.DataLabelText = "{#YVAL}元"
Chart.AxisX.AnnoWithLabels = True '启用字符标