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

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

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

jyh7081

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

加好友

发短信

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

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

出现错误，见图：

此主题相关图片如下：1.gif

jyh7081

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

加好友

发短信

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

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

请各位老师再帮我看看。

狐狸爸爸

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

加好友

发短信

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

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

你的tname变量是在某个for循环语句中定义的，不能在这个for循环语句之外使用。

具体参考：

http://www.foxtable.com/help/topics/1518.htm

jyh7081

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

加好友

发短信

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

Post By：2013/8/14 17:32: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

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

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("股piao信息明细表").ResumeRedraw()

e.Form.Close()

msgbox("导入结束")

狐狸爸爸

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

加好友

发短信

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

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

这么多层的楼，我没有时间帮你从头看到尾，看看晚上有点甜有没有空帮你看看。

其实这个代码逻辑很简单，除非这段代码你在前面Return了，导致这些代码没有执行，否则没有道理不会生效。
最好自己先用少量数据，调试分析一下吧:
http://www.foxtable.com/help/topics/1485.htm

掌握一点基本的调试分析技巧，这样遇到简单的问题，可以自己分析，不至于完全束手无策，坐等他人解决。