Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助！导入EXCEL表数据全部为文本


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

主题：求助！导入EXCEL表数据全部为文本
帅哥，在线噢！
有点蓝
 小大  71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/24 11:50:00 [只看该作者]

Select Case e.DataCol.Name
    Case "持卡人","日期"
        Dim d As Date = e.DataTable.Compute("max(日期)","日期 < #" & e.DataRow("日期") & "# and  持卡人='" & e.DataRow("持卡人") & "' ")
        e.DataRow("期间消费购买数量")  = DataTables("明细表").Compute("sum(数量)","交易类型='购买' and 持卡人='" & e.DataRow("持卡人") & "' and 交易时间 > #" & d & "# and 交易时间 <= #" & e.DataRow("日期") & "#")
End Select
 回到顶部
美女呀，离线，留言给我吧！
0799snow
 小大  72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：834 威望：0 精华：0 注册：2019/3/19 8:23:00 		非常感谢，我自己也做了微调，已经成功了  发帖心情 Post By：2019/7/24 13:57:00 [只看该作者]

非常感谢！！！我自己也做了微调，已经成功了！！！

 回到顶部
美女呀，离线，留言给我吧！
0799snow
 小大  73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：834 威望：0 精华：0 注册：2019/3/19 8:23:00 		有新问题求助老师！  发帖心情 Post By：2019/9/20 15:59:00 [只看该作者]

上次已经做了一个调休表，是针对具体日期调成工作日和休假日的，但是又出现一个分部门是整体将周一调为休假日，周六调为工作日，这个如何实现，在之前的代码这里做调整可以吗？图片点击可在新窗口打开查看项目文件上传，谢谢大师！！！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/20 16:04:00 [只看该作者]

上次做了什么没人记得了。请重新上传项目说明问题

 回到顶部
美女呀，离线，留言给我吧！
0799snow
 小大  75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：834 威望：0 精华：0 注册：2019/3/19 8:23:00 		求助老师，上传项目  发帖心情 Post By：2019/9/21 11:11:00 [只看该作者]

老师，不好意思，昨天项目没上传成功，今天重新上传，现在有表[销售卡信息]里所属部门“采购”周一、周日休息，周六正常上班，想在明细表[周六周日]中显示周一、周日的交易 记录，而象所属部门为“业务”的，[周六周日]列中显示周六和周日的交易 记录。还有一种方式在[调休表]里，假如所属部门为“采购”的，周一全部调休假日，周六全部调为工作日，因为明细表是导入的，可能需要改导入的代码，或者，在调休表里怎么调整代码?非常感谢老师的帮助
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:休假日测试项目.table
 回到顶部
帅哥，在线噢！
有点蓝
 小大  76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/21 11:41:00 [只看该作者]

在调休表里怎么调整代码?  -- 调休表里的代码是哪个？没找到

 回到顶部
美女呀，离线，留言给我吧！
0799snow
 小大  77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：834 威望：0 精华：0 注册：2019/3/19 8:23:00 		调休表目前是手工录入  发帖心情 Post By：2019/9/21 12:45:00 [只看该作者]

调休表目前是手工录入，没有代码，我是想是否可以根据需要，把需要的周一调为工作日

 回到顶部
帅哥，在线噢！
有点蓝
 小大  78楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

既然是手工计算的，自己添加一行记录一下就行了。

建议假期表使用这种方式记录保存：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=140941&skin=0
即使用竖表，而不是横表。方便以后进行计算
 回到顶部
美女呀，离线，留言给我吧！
0799snow
 小大  79楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：834 威望：0 精华：0 注册：2019/3/19 8:23:00 		老师，还是请你帮帮我吧  发帖心情 Post By：2019/9/21 14:36:00 [只看该作者]

我看了别人的关于法定假日的那个项目。但是我是根据基本信息表里的列而变动工作日的，而且要全部都变动，这个对于我来说比较难，要不您可以在我那个导入数据的代码里，加上对基本信息表里[所属部门]列为‘业务’的在明细表的[周六周日]列显示周六周日和调休表里的调为休假日，而[所属部门]为‘采购’的[周六周日]列显示周日、周一和调休表里的调为休假日。谢谢老师！！！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/21 15:18:00 [只看该作者]

Dim lst1 As List(Of String)  = DataTables("销售卡信息").GetValues("持卡人","所属部门='采购'")
For Each r As Row In Tables("明细表").rows
    If lst1.Contains(r("交易时间")) Then
        If cdate(r("交易时间")).DayOfWeek = 0  OrElse cdate(r("交易时间")).DayOfWeek = 1 Then
            r("周六周日") = cdate(r("交易时间")).DayOfWeek
        End If
    Else
        If cdate(r("交易时间")).DayOfWeek = 0 OrElse cdate(r("交易时间")).DayOfWeek = 6  Then
            r("周六周日") = cdate(r("交易时间")).DayOfWeek
        End If
    End If
Next
 回到顶部
总数 91 上一页 1 2 3 4 5 6 7 8 9 10 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询