Foxtable(狐表)用户栏目专家坐堂 → 导入问题求助!


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

主题:导入问题求助!

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


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
导入问题求助!  发帖心情 Post By:2018/11/25 19:06:00 [只看该作者]

有总表1(A—U列),页面合集1,PAGE1有表A(已设为副表,取表1的A-H列,模板为A.xls)、PAGE2有表B(已设为副表,取表1的A-K列,模板为B.xls)......,
1、现在“导出”按钮的代码已实现当在PAGE1时,按模板A.xls导出EXCEL表;当在PAGE2时,按模板B.xls导出EXCEL表;
2、想实现用1个“导入”按钮,当选择PAGE1时,点击按钮可将刚才在PAGE1时,按模板A.xls导出的EXCEL表(已填好新数据)重新导回覆盖,在PAGE2时也是同理;

请教版主,这个能实现吗?代码应该怎么写?

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


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/11/25 19:18:00 [只看该作者]

补充:总表1的C列、E列分别为身份证号码、批次

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


加好友 发短信
等级:版主 帖子:85329 积分:427820 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/25 19:54:00 [只看该作者]

判断selectedpage即可,如

 

Dim tab As WinForm.TabControl = e.Form.controls("TabControl1")
If tab.SelectedPage.name = "page1" Then

 

ElseIf tab.SelectedPage.name = "page2" Then

 

End If

 


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


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/11/25 20:16:00 [只看该作者]

图片点击可在新窗口打开查看大概明白了,跟导出选择页面有些类似,再请教一下:原来项目中是是1个窗口对应1个表、1个模板,“导入”按钮代码比较多,且各个“导入”按钮的代码有所不同,现在是不是加上判断后直接复制粘贴原来的代码就行,那样的话,代码的规模真是很庞大了!

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


加好友 发短信
等级:版主 帖子:85329 积分:427820 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/25 20:38:00 [只看该作者]

你可以做多个按钮,把按钮放在看不到的地方,然后用下面的方法,模拟点击按钮

 

http://www.foxtable.com/webhelp/scr/2309.htm

 

当然,写成内部函数,也可以。


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


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/11/25 21:03:00 [只看该作者]

谢谢版主!水平有限!前面的都没搞明白,导出代码到是基本搞明白了,很简洁;就是导入代码还是不明白,我记得原来《使用指南》里有例子,那代码就很简洁,就是找了半天没找到。
现在的问题是:原来单个窗口管单个表,每个窗口中的表是没有关系的,所以导出代码用到了模板,导入代码好象没有用到模板(没使用模板名);在页面合集里各页面中的副表其实都是总表中的一部分,那么在相应页面里再用到原来的导入代码好象也不起作用,总报错!版主能否再指点一下?


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


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/11/25 21:06:00 [只看该作者]

Dim Result As DialogResult
Result = MessageBox.Show("确定要导入吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim dlg As New OpenFileDialog
    dlg.Filter = "Excel文件|*.xls"
    dlg.MultiSelect = True '允许选择多个文件
    If dlg.ShowDialog =DialogResult.OK Then
        Dim Book As New XLS.Book(dlg.FileName)
        Dim Sheet As XLS.Sheet = Book.Sheets("证书编号表")
        Tables("证书编号表").ResumeRedraw()
        Tables("证书编号表").StopRedraw()
        systemready = False
        Dim nms As New Dictionary(Of String, Integer)
        Dim dic As new Dictionary(Of DataRow, Integer)
        Dim ls As new List(Of Integer)
        For c As Integer = 0 To sheet.Cols.Count - 1
            Dim str As String = sheet(1,c).Text.Replace(" ", "")
            If  DataTables("证书编号表").DataCols.Contains(str) Then
                nms.Add(str, c)
            End If
        Next
        For n As Integer = 2 To Sheet.Rows.Count -1
            Dim sfzhm As String = sheet(n,5).Text
            Dim jdpc As String = sheet(n,9).Text
            Dim dr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & sfzhm & "' And 鉴定批次 = '" & jdpc & "'")
            If dr Is Nothing Then
                ls.add(n)
            Else
                dic.Add(dr, n)
            End If
        Next
        For Each key As DataRow In dic.Keys
            For Each m As String In nms.keys
                If DataTables("证书编号表").DataCols(m).IsBoolean Then
                    If Sheet(dic(key),nms(m)).Text = "" OrElse Sheet(dic(key),nms(m)).Text = "False" OrElse Sheet(dic(key),nms(m)).Value = 0 Then
                        key(m) = False
                    Else
                        key(m) = True
                    End If
                Else If DataTables("证书编号表").DataCols(m).Expression > "" Then
                    '表达式列
                Else If DataTables("证书编号表").DataCols(m).IsNumeric Then
                    key(m) = val(Sheet(dic(key),nms(m)).Value)
                Else
                    key(m) = Sheet(dic(key),nms(m)).Value
                End If
            Next
        Next
        For Each l As Integer In ls
            Dim ndr As DataRow = DataTables("证书编号表").AddNew
            For Each m As String In nms.keys
                If DataTables("证书编号表").DataCols(m).IsBoolean Then
                    If Sheet(l,nms(m)).Text = "" OrElse Sheet(l,nms(m)).Text = "False" OrElse Sheet(l,nms(m)).Value = 0 Then
                        ndr (m) = False
                    Else
                        ndr (m) = True
                    End If
                Else If DataTables("证书编号表").DataCols(m).Expression > "" Then
                    '表达式列
                Else If DataTables("证书编号表").DataCols(m).IsNumeric Then
                    ndr (m) = val(Sheet(l,nms(m)).Value)
                Else
                    ndr (m) = Sheet(l,nms(m)).Value
                End If
            Next
        Next
        Tables("证书编号表").ResumeRedraw()
        systemready = True
    End If
End If

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


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/11/25 21:10:00 [只看该作者]

上面是原来证书编号窗口的“导入”按钮代码,对应的是“证书编号表”,跟其它表无关,现在“证书编号表”中的列都在总表中,只是其中的一部分列。
比如我选择的页面是“证书编号”,导出一个“证书编号表“后,填好数据再导入,上面的代码就没起作用

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


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

 

导出的数据的xls文件发上来测试。

 

对应的表格,也单独做一个例子发上来测试。

 


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


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/11/26 11:05:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:05月理论安排.xls

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:05月实操安排.xls

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:我的项目.rar

自身水平还是太低,理解能力还是差了,看帮助、看贴子也还没能搞定!

现在上传例子:2个EXCEL表分别是导出的05月批次的理论和实操安排表,现填好安排数据(红字部分)要再导入回去,这个“导入”按钮代码一直没搞定,烦请版主指点!


 回到顶部
总数 12 1 2 下一页