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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel函数使用

共有6195人关注过本帖树形打印复制链接主题：excel函数使用

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/23 19:09:00 [显示全部帖子]

修复wmi http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103895&skin=0

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/9 8:50:00 [显示全部帖子]

参考

http://www.foxtable.com/webhelp/scr/1453.htm

http://www.foxtable.com/webhelp/scr/2490.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/25 9:01:00 [显示全部帖子]

Dim Chart4 As WinForm.Chart
Dim Series4 As WinForm.ChartSeries
Dim t As Table = Tables("表A")
Chart4=Forms("窗口1").Controls("Chart1")
Chart4.ChartType = ChartTypeEnum.Bar
chart4.AxisX.ClearValueLabel
Chart4.SeriesList.Clear() '清除图表原来的图系
Chart4.Stacked=True
Chart4.AxisY.Min = 0
Chart4.HeaderText=" 表A"
Dim max As Date = t.Compute("max(date)")
Dim min As Date = t.Compute("min(date)")
For Each vn As String In t.DataTable.GetValues("vn")
    Dim Series = Chart4.SeriesList.Add() '增加一个图系
    series.text = vn
    series.length = (max-min).Totaldays + 1
    Dim i As Integer = 0
    Dim d = min
    Do While d <= max
        Dim fdr = t.DataTable.find("date=#" & min & "# and vn='" & vn & "'")

        If fdr Is Nothing Then
            Series.X(i) = i
            Series.Y(i) = 0
        Else
            Series.X(i) = i
            Series.Y(i) = fdr("prod")
        End If

        Chart4.AxisX.SetValueLabel(i, d) '指定字符表示
        i += 1
        d = d.adddays(1)
    Loop

Next

Chart4.AxisX.AnnoWithLabels = True '启用字符标示
Chart4.LegendVisible = True '显示图列
Chart4.LegendCompass= CompassEnum.South '图列显示在南方(底端)

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/25 10:11:00 [显示全部帖子]

Dim fdr = t.DataTable.find("date=#" & min & "# and vn='" & vn & "'")

改成

Dim fdr = t.DataTable.find("date=#" & d & "# and vn='" & vn & "'")

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/26 22:05:00 [显示全部帖子]

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("表A") '定义一个变量t引用数据表
Chart=e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)
Dim r As Row = t.Current
For Each c As Col In t.Cols
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 1 '一个系列只能包括一个值
    Series.Text = c.name & "(" & r(c.name) & ")" '设置图系的标题
    Series.Y(0) = val(r(c.name)) '指定值
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/27 9:38:00 [显示全部帖子]

循环每一列求和

Dim sum As Double = 0

For Each c As Col In t.Cols
sum += r(c.name)
Next

msgbox(sum)

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/27 17:55:00 [显示全部帖子]

如果是停靠窗口，这样写

e.form.panel.parent.parent.width = 100

如果是独立窗口，这样写

e.form.baseform.width = 100

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/10 17:58:00 [显示全部帖子]

以下是引用cglsg5076在2018/10/10 16:41:00的发言：
请问老师，如何在foxtable中创建类？谢谢。（工作中需要创建自己的类）

参考

http://www.foxtable.com/webhelp/scr/1842.htm

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/15 8:43:00 [显示全部帖子]

删除这段代码

'Chart5.DataSource ="DBDS"
'Chart5.Stacked=True
'Chart5.AxisX.DateType = True
'Chart5.AxisX.AnnoFormatString = "MM-dd" '只显示日
'Chart5.AxisX.MinDate = tChart5.Compute("min(Date)") '设置Y轴的起始日期
'Chart5.AxisX.MaxDate = tChart5.Compute("max(Date)") '设置Y轴的终止日期
'Chart5.AxisY.Min=0
'Chart5.AxisX.MinDate=Chart5.AxisX.MinDate.adddays(-1)

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/15 9:15:00 [显示全部帖子]

以下是引用cglsg5076在2018/10/15 8:53:00的发言：
还是不行，请问老师怎么办。

我测试没问题。可以生成图表。

1、截图说明你现在生成什么样的图表；

2、截图说明你需要生成什么样的图表。

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：excel函数使用