Foxtable(狐表)用户栏目专家坐堂 → [求助]怎样用报表编程和合并数据来导入


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

主题:[求助]怎样用报表编程和合并数据来导入

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


加好友 发短信
等级:五尾狐 帖子:1074 积分:9872 威望:0 精华:0 注册:2008/9/2 11:34:00
  发帖心情 Post By:2018/8/26 13:41:00 [只看该作者]

用附件来存储用户信息?这种方式极少吧

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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
  发帖心情 Post By:2018/8/26 21:57:00 [只看该作者]

是存储相关人员的家庭成员信息,如果直接把相关人员的家庭成员信息存储于单元格,那不好看。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/26 22:44:00 [只看该作者]

For Each file As String In filesys .GetFiles("c:\Foxtable")
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("表B").AddNew
        dr("第一列") = sheet(3,2).Text
        Dim fl As String = ProjectPath & "Attachments\" & dr("第一列") & ".jpg"
        If Sheet(2,5).SaveImage(fl) Then
            dr("第二列") = fileSys.GetName(fl)
        End If
        Dim newbook As new XLS.Book
        Dim newsheet As XLS.Sheet = newbook.Sheets(0)
        For c As Integer = 0 To 3
            For r As Integer = 0 To 2
                newsheet(r,c).value = sheet(16+r, c+1).text
            Next
        Next
        fl = ProjectPath & "Attachments\" & dr("第一列") & "的家庭成员" & ".xls"
        newbook.Save(fl)
        dr("第三列") = fileSys.GetName(fl)
    End If
Next

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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
  发帖心情 Post By:2018/8/26 22:48:00 [只看该作者]

再修改成如下,也不行
For Each file As String In filesys .GetFiles("c:\Foxtable")
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("表B").AddNew
        dr("第一列") = sheet(3,2).Text
        Dim fl As String = ProjectPath & "Attachments\" & dr("第一列") & ".jpg"
        If Sheet(2,5).SaveImage(fl) Then
            dr("第二列") = fileSys.GetName(fl) Then
            Dim fl As String = ProjectPath & "Attachments\" & dr("第一列"and"的家庭成员") & ".xls"
            If Sheet(B17:G19).SaveCells(fl) Then
                dr("第三列") = fileSys.GetName(fl)
            End If
        End If
    End If
Next

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/27 0:14:00 [只看该作者]

看13楼代码。

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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
  发帖心情 Post By:2018/8/28 22:18:00 [只看该作者]

有点甜
      你好,谢谢你,你真厉害,你太棒了,我第一次使用你的代码时,联系电话那列没有提取上去,但修改一下以下代码中的数值,也就能提取上去了。
  For c As Integer = 0 To 3
            For r As Integer = 0 To 2
                newsheet(r,c).value = sheet(16+r, c+1).text

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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
  发帖心情 Post By:2018/8/29 22:45:00 [只看该作者]

有点甜
      你好,请问
fl = ProjectPath & "Attachments\" & dr("第一列") & "的家庭成员" & ".xls"
上面这句代码为什么不能改写成以下代码?
Dim fl As String = ProjectPath & "Attachments\" & dr("第一列") & "的家庭成员" & ".xls"

而以下代码
newbook.Save(fl)
为什么不能改写成以下代码?
If newbook.Save(fl) Then

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/29 23:28:00 [只看该作者]

以下是引用qjm107在2018/8/29 22:45:00的发言:
有点甜
      你好,请问
fl = ProjectPath & "Attachments\" & dr("第一列") & "的家庭成员" & ".xls"
上面这句代码为什么不能改写成以下代码?
Dim fl As String = ProjectPath & "Attachments\" & dr("第一列") & "的家庭成员" & ".xls"

而以下代码
newbook.Save(fl)
为什么不能改写成以下代码?
If newbook.Save(fl) Then

 

1、可以写成如

 

Dim abc As String = ProjectPath & "Attachments\" & dr("第一列") & "的家庭成员" & ".xls"

 

2、save是没有返回值的,不能那样写。你那样写的目的是什么?为什么要那样写?


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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
  发帖心情 Post By:2018/8/30 22:43:00 [只看该作者]

请问以下代码中的abc表示什么呢,为什么要写成abc
Dim abc As String = ProjectPath & "Attachments\" & dr("第一列") & "的家庭成员" & ".xls"
并且我试了一下,这样的代码无法提取照片及存储xls文件,把abc改为def也同样如此,如附件图所示。
图片点击可在新窗口打开查看此主题相关图片如下:改写后的代码无法提取.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/30 22:59:00 [只看该作者]

你写了下面这几句代码了没有?

 

        Dim abc = ProjectPath & "Attachments\" & dr("第一列") & "的家庭成员" & ".xls"
        newbook.Save(abc)
        dr("第三列") = fileSys.GetName(abc)


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