Foxtable(狐表)用户栏目专家坐堂 → 求助!急等答复


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

主题:求助!急等答复

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


加好友 发短信
等级:幼狐 帖子:88 积分:819 威望:0 精华:0 注册:2013/10/15 13:25:00
  发帖心情 Post By:2017/10/13 13:01:00 [只看该作者]

电脑10月12号更新的KB4041678卸载后,恢复正常了。
谢谢。

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


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

最简单的方法,是直接将 .xls 的后缀名改成 .xlsx 的后缀名即可。

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


加好友 发短信
等级:幼狐 帖子:88 积分:819 威望:0 精华:0 注册:2013/10/15 13:25:00
  发帖心情 Post By:2017/10/13 15:32:00 [只看该作者]

项目是我们在日常工作中使用的,有N多地方需要从excel中导入数据,绝大部分用Merge()导入.

如其中某一处的导入代码如下:

If MessageBox.Show("任务Excel文件准备好了吗?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then

    Dim dlg As New OpenFileDialog

    dlg.Filter= "Excel文件|*.xls" 

    If dlg.ShowDialog = DialogResult.Ok Then

        Dim mg As New Merger

        mg.SourcePath = dlg.FileName

        mg.Format = "excel"

        mg.SourceTableName = "sheet1$"

        mg.DataTableName = "任务"

        If MessageBox.Show("当前任务单是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then

            DataTables("任务").datarows.clear

            mg.Merge()

        Else

            mg.Merge()

        End If       

        MessageBox.Show("客户任务单已导入!")

    End If

End If


第三句代码dlg.Filter= "Excel文件|*.xls"造成不能导入.xlsx文件。

虽然改为dlg.Filter= "Excel文件|*.xl*"后可以导入.xlsx,但是N多处的代码修改很是麻烦。

卸载Windows昨天的更新Kb4041678后问题也解决了,但又担心windows漏洞。

不管怎样,目前起码可以正常工作了,非常感谢。希望后面有更好的解决办法,避免类似情况发生。



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