[求助]如何将数据分析结果生成新的数据表？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何将数据分析结果生成新的数据表？

共有6408人关注过本帖树形打印复制链接主题：[求助]如何将数据分析结果生成新的数据表？

有点甜

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

加好友

发短信

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

Post By：2013/8/12 22:24:00 [只看该作者]

DataTables(tname).DataCols("涨幅").SetFormat("#0.00%")

jyh7081

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

加好友

发短信

等级：四尾狐帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2013/8/12 22:29:00 [只看该作者]

加在哪？

有点甜

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

加好友

发短信

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

Post By：2013/8/12 23:08:00 [只看该作者]

以下是引用jyh7081在2013-8-12 22:29:00的发言：
加在哪？

呃……你懂的。

jyh7081

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

加好友

发短信

等级：四尾狐帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2013/8/12 23:45:00 [只看该作者]

只知道是设置列的显示格式，但不知道怎么用，请指教。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/8/13 8:58:00 [只看该作者]

drs(i)("涨幅") = (drs(i)("收盘价") - drs(i - 1)("收盘价")) / drs(i - 1)("收盘价") * 100

改为：

drs(i)("涨幅") = math.Round((drs(i)("收盘价") - drs(i - 1)("收盘价")) / drs(i - 1)("收盘价") * 100,2)

jyh7081

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

加好友

发短信

等级：四尾狐帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2013/8/13 18:14:00 [只看该作者]

在有点甜、狐爸代码的基础上，想增加计算股piao开盘第一天的涨幅，改写了一段代码（见下面红色部分），执行代码后没反应，是何原因？生成的单元格格式右靠齐，怎么写代码？

'新增的代码

Dim tname As String = FileSys.GetName(file.SubString(0, file.length - 4))

Dim drs As List(of DataRow) = DataTables(tname).Select("", "时间")

For i As Integer = 1 To drs.Count - 1

If i = 0 Then

drs(i)("涨幅") = math.Round((drs(i)("收盘价") - drs(i)("开盘价")) / drs(i)("开盘价") * 100,2)

End If

drs(i)("涨幅") = math.Round((drs(i)("收盘价") - drs(i - 1)("收盘价")) / drs(i - 1)("收盘价") * 100,2)

End If

Tables("股piao信息明细表").ResumeRedraw()

e.Form.Close()

msgbox("导入结束")

[此贴子已经被作者于2013-8-13 20:48:29编辑过]

jyh7081

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

加好友

发短信

等级：四尾狐帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2013/8/13 21:37:00 [只看该作者]

在 lsy 老师提供的模块中，将“涨幅”按钮代码新增了股piao开盘第一天的涨幅代码，运行通过。楼上的代码为何没反应？

同样是计算“涨幅”，1、drs(i)("涨幅") = math.Round((drs(i)("收盘价") - drs(i - 1)("收盘价")) / drs(i - 1)("收盘价") * 100,2)

2、drlist(i)("涨幅") = (drlist(i)("收盘价") - drlist(i - 1)("收盘价")) / drlist(i - 1)("收盘价") * 1%

为何不同？

下面是“涨幅”按钮代码：

Dim t As Table = Tables("股piao信息明细表")

t.Sort = "代码,时间"

Dim codes As List (Of String) = DataTables("股piao信息明细表").GetUniqueValues("代码 Is Not Null","代码")

For Each code As String In codes

Dim drlist As List (Of DataRow) = DataTables("股piao信息明细表").Select("代码 = '" & code & "'")

For i As Integer = 0 To drlist.Count - 1

If i = 0 Then

drlist(i)("涨幅") = (drlist(i)("收盘价") - drlist(i)("开盘价")) / drlist(i)("开盘价") * 1% '新增

'drlist(i)("涨幅") = 0 去除

Else

drlist(i)("涨幅") = (drlist(i)("收盘价") - drlist(i - 1)("收盘价")) / drlist(i - 1)("收盘价") * 1%

End If

有点甜

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

加好友

发短信

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

Post By：2013/8/13 22:35:00 [只看该作者]

drlist(i)("涨幅") = (drlist(i)("收盘价") - drlist(i)("开盘价")) / drlist(i)("开盘价") * 1% '新增

我测试正常执行，你想问什么？

jyh7081

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

加好友

发短信

等级：四尾狐帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2013/8/13 22:41:00 [只看该作者]

老师终于出手了，谢谢。

我的问题是16楼加的一段红色代码，想计算开盘第一天的涨幅，并且单元格数据右靠齐。

有点甜

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

加好友

发短信

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

Post By：2013/8/13 23:08:00 [只看该作者]

'新增的代码

Dim tname As String = FileSys.GetName(file.SubString(0, file.length - 4))

Dim drs As List(of DataRow) = DataTables(tname).Select("", "时间")

For i As Integer = 1 To drs.Count - 1

If i = 0 Then

drs(i)("涨幅") = math.Round((drs(i)("收盘价") - drs(i)("开盘价")) / drs(i)("开盘价") * 100,2)

Else

drs(i)("涨幅") = math.Round((drs(i)("收盘价") - drs(i - 1)("收盘价")) / drs(i - 1)("收盘价") * 100,2)

End If

Tables(tname).Cols("涨幅").TextAlign = TextAlignEnum.Right

Tables("股piao信息明细表").ResumeRedraw()

e.Form.Close()

msgbox("导入结束")

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

总数 34 上一页 1 2 3 4 下一页

主题：[求助]如何将数据分析结果生成新的数据表？