Foxtable(狐表)用户栏目专家坐堂 → EXCEL导入


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

主题:EXCEL导入

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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2021/5/13 13:15:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:单据导入系统.rar

 

老师压缩文件里为实例和对应要导入的EXCEL文件,谢谢老师!


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


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/13 13:57:00 [只看该作者]

明细表不是自增主键,而是自定义的主键,新建的行没有给主键赋值,所以是无法保存的。导入的时候就已经有主键错误的提示了,测试的时候难道没看到么

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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2021/5/13 14:10:00 [只看该作者]

老师,我选择导入文件的过程中没有看到报错,导入后我看明细表的两主健(billid,itemno)也是按预想的生成了啊,billid等于主表billid, itemno是按明细行顺序生成的。


图片点击可在新窗口打开查看此主题相关图片如下:qq9999.png
图片点击可在新窗口打开查看

我是不是只能用自动增长的主健才能导入?

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


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/13 14:15:00 [只看该作者]

新建的行必须给主键赋值,主键值不能重复,主键有值就可以

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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2021/5/13 14:29:00 [只看该作者]

老师,我的明细表的表属性,增加行的代码

Dim win As WinForm.form
If Forms("预算导入").Opened Then
  win = Forms("预算导入")
End If 

e.DataRow("billid") = win.Controls("TextBox61").Value
e.DataRow("itemno") = e.DataTable.Compute("Max(itemno)") + 1

这个给这明细表的这两个双主健
赋值了啊,这个是不能用这个代码吗老师?需要在导入的EXCEL表文件里有两两例和值?
方法倒是想到了,不行我就再增加一个自增长的主健,改一下主健。就是这里没弄明白。:)

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


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/13 14:59:00 [只看该作者]

不是自增主键的,使用DataTable.addnew,不能使用Table.addnew增加行

Dim r As Row = Tables("ysmxhz").AddNew()
改为
Dim r As DataRow = DataTables("ysmxhz").AddNew()

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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2021/5/13 15:12:00 [只看该作者]

谢谢老师解惑!

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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2021/5/15 12:33:00 [只看该作者]

老师,请问我导入报表后,导入数据是否最后 后面已需要这么一个保存的语句, DataTables("yszb").Save() 加了这语句感觉慢了不少,

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


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/15 13:47:00 [只看该作者]

保存是比较花时间的,数据越多就越慢

 回到顶部
总数 19 上一页 1 2