Foxtable(狐表)用户栏目专家坐堂 → 数据表结构


  共有4481人关注过本帖树形打印复制链接

主题:数据表结构

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/28 15:54:00 [显示全部帖子]

 这种,就需要编写代码导入了。

 

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

 

 

 写一下excel代码吧 http://www.foxtable.com/help/topics/2334.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/28 16:28:00 [显示全部帖子]

以下是引用发财在2014-5-28 16:23:00的发言:
帮我写一下代码,或再提示清楚一下好吗?

 

可以先去打一下基础

 

第二讲,2014年4月19日_用代码操作Excel表格http://www.tudou.com/listplay/z4cArCPWzyM/Tm8Bhteb-64.html


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/28 16:36:00 [显示全部帖子]

以下是引用发财在2014-5-28 16:34:00的发言:
如何下载里面的代码?

 

里面的代码都在帮助文档里面了,照着帮助文档弄的。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/28 17:25:00 [显示全部帖子]

 代码

 

DataTables("资产").DataRows.Clear

Dim Book As New XLS.Book(ProjectPath & "资产负债表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("资产").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"项目","年初数","年未数","行次","项目2","行次2","年初数2","年未数2"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 5 To 55
    Dim r As Row = Tables("资产").AddNew()
    For m As Integer = 0 To nms.Length - 1
         r(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("资产").ResumeRedraw()


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/29 10:13:00 [显示全部帖子]

以下是引用发财在2014-5-29 10:06:00的发言:
出现错误:Index 51 is either negative or above rows count.

 

呃,基本的代码都写错?

 

Tables("资产负债表汇总").StopRedraw()
Dim r1 As Table = Tables("主营资产负债表")
Dim r2 As Table = Tables("自营资产负债表")
Dim r As Table = Tables("资产负债表汇总")

For n As Integer = 0 To 50
    r.Rows(n)("年初数") = r1.Rows(n)("年初数") + r2.Rows(n)("年初数")
    r.Rows(n)("年未数") = r1.Rows(n)("年未数") + r2.Rows(n)("年未数")
    r.Rows(n)("年初数2") = r1.Rows(n)("年初数2") + r2.Rows(n)("年初数2")
    r.Rows(n)("年未数2") = r1.Rows(n)("年未数2") + r2.Rows(n)("年未数2")
Next

Tables("资产负债表汇总").ResumeRedraw()

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/29 15:36:00 [显示全部帖子]

 看不懂你的意思,合并数据的代码都写给你了。批量导入导出汇总统计自己看着办吧。只有你清楚你要什么,代码就是那一点代码,你不学你不做,烂摊子就自己收拾吧。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/29 16:00:00 [显示全部帖子]

以下是引用发财在2014-5-29 15:42:00的发言:
只想你引导一下,不用打击我吧?

 

引导已经引导你了,合并/导入数据的代码都写给你了。剩下的是自己消化和修改。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/3 9:22:00 [显示全部帖子]

以下是引用发财在2014-5-31 7:56:00的发言:
资产负债表分左右两边,当不要项目2时,导出报表时如何限制1至50行在左边,51至100行在右边,即是按资产负债表格式输出?

 

需要自己编写代码输入内容,http://www.foxtable.com/help/topics/1144.htm

 

或者使用模板输出内容,也就是做一个有两列,50行的标签模板 http://www.foxtable.com/help/topics/1414.htm

 


 回到顶部