程序的变量值如何输出到表里 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 程序的变量值如何输出到表里

共有9551人关注过本帖树形打印复制链接主题：程序的变量值如何输出到表里

有点甜

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

加好友

发短信

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

Post By：2015/3/31 14:14:00 [只看该作者]

或者你这样写，红色地方的空格你处理一下

DataTables("表B").Fill("se lect distinct [_Identify], 第一列 from {表C}", False)

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1011 积分：6513 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2015/3/31 14:58:00 [只看该作者]

尊敬的版主，我设值成True了，还是报错。附件是我的数据，我该如何写代码，请赐教。

我的目的是从一个表里提取数据然后放到另一个表再图视这些数据，便于检查。

谢谢。

有点甜

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

加好友

发短信

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

Post By：2015/3/31 14:59:00 [只看该作者]

看41楼。

或者看看 http://www.foxtable.com/help/topics/0695.htm

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1011 积分：6513 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2015/3/31 16:18:00 [只看该作者]

请问版主，我的这句错在哪里。

DataTables("表D").Fill("Se lect distinct 第四列,第九列 From {表C} ORDER BY 第二列", True)

有点甜

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

加好友

发短信

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

Post By：2015/3/31 16:19:00 [只看该作者]

Datatables的Fill函数，必须包含主键列，如_Identify，且后面的参数必须是 False

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1011 积分：6513 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2015/3/31 16:26:00 [只看该作者]

谢谢您的回复。我去除了distinct ，程序就对了，有distinct 就不行。

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1011 积分：6513 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2015/4/1 9:36:00 [只看该作者]

请老师给看看，下面的程序哪里有错误，显示Invalid data type，我不知如何解决。多谢！

Dim rii As Integer

rii=1

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart=Forms("displayinchart").Controls("Chart1") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '设置图表类型

Chart.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加一个图系

Dim n As Integer=Tables("统计表").Rows.Count

Series.Length = n

Dim sta As Row = Tables("统计表").Rows(rii)

For i As Integer =1 To n '指定每个数据点的位置

Series.X(i) =sta("第四列")

Series.Y(i) =sta("第九列")

rii=rii+1

Next i

MainTable = Tables("表C")

有点甜

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

加好友

发短信

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

Post By：2015/4/1 9:42:00 [只看该作者]

试试

Dim rii As Integer
rii=1
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart=Forms("displayinchart").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '设置图表类型
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Dim n As Integer=Tables("统计表").Rows.Count
Series.Length = n
Dim sta As Row = Tables("统计表").Rows(rii)
For i As Integer =1 To n '指定每个数据点的位置
    Series.X(i) = val(sta("第四列"))
    Series.Y(i) = val(sta("第九列"))
    rii=rii+1
Next i
MainTable = Tables("表C")

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1011 积分：6513 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2015/4/1 10:23:00 [只看该作者]

谢谢老师，程序通了，但结果不对。我的数据如下。成图结果不对，是什么原因？

1 30

2 23

3 17

有点甜

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

加好友

发短信

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

Post By：2015/4/1 10:26:00 [只看该作者]

Dim rii As Integer
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart=Forms("displayinchart").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '设置图表类型
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Dim n As Integer=Tables("统计表").Rows.Count
Series.Length = n
For i As Integer = 1 To n '指定每个数据点的位置
    Dim sta As Row = Tables("统计表").Rows(i-1)
    Series.X(i) = val(sta("第四列"))
    Series.Y(i) = val(sta("第九列"))
Next
MainTable = Tables("表C")

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

总数 77 上一页 1 2 3 4 5 6 7 8 下一页

主题：程序的变量值如何输出到表里