[求助]求助Excel函数转换成狐表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求助Excel函数转换成狐表

共有1763人关注过本帖树形打印复制链接主题：[求助]求助Excel函数转换成狐表

misamisali

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：220 积分：1751 威望：0 精华：0 注册：2016/3/2 9:22:00

[求助]求助Excel函数转换成狐表 发帖心情

Post By：2016/12/21 11:52:00 [只看该作者]

月开始，应该是本月第一天
图片点击可在新窗口打开查看

此主题相关图片如下：函数1.png

此主题相关图片如下：函数22.png

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/21 12:10:00 [只看该作者]

必须写代码处理。

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

具体问题上传foxtable实例。

misamisali

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：220 积分：1751 威望：0 精华：0 注册：2016/3/2 9:22:00

Post By：2016/12/21 14:35:00 [只看该作者]

我写的代码是这样，但是不正确？

想实现的效果是：“入司日期”< "本月第一天" 且 "离职日期" 为空值或 “离职日期”大于等于 “本月第一天” 则

“前月末在职” 填入 “1”

Dim dq As DataRow = e.DataRow

Dim FirstDay As Date = New Date (Date.Today.Year,Date.Today.Month,1)

Dim LastDay As Date = New Date (Date.Today.Year,Date.Today.Month,Date.DaysInMonth(Date.Today.Year,Date.Today.Month))

Dim dt As DataTable =DataTables("员工信息表")

If e.DataCol.Name = "前月末在职" And dq.IsNull("前月末在职") = False Then

If dq("入司日期") < FirstDay And dq("离职日期") IsNothing Or dq("离职日期") >= FirstDay Then

dq("前月末在职") = "1"

End If

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/21 15:00:00 [只看该作者]

Dim dq As DataRow = e.DataRow

If e.DataCol.Name = "前月末在职" And dq.IsNull("前月末在职") = False Then
    Dim FirstDay As Date = New Date (Date.Today.Year,Date.Today.Month,1)
    Dim LastDay As Date = firstDay.AddMonths(1)
    If dq("入司日期") < FirstDay AndAlso (dq.isnull("离职日期") = False OrElse dq("离职日期") >= FirstDay) Then
        dq("前月末在职") = "1"
    End If
End If

misamisali

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：220 积分：1751 威望：0 精华：0 注册：2016/3/2 9:22:00

Post By：2016/12/21 17:14:00 [只看该作者]

这个代码是什么原因，就是我想实现：

如果当月底之前依然在职，则dr5("当月末在职") ="1"，我感觉代码没问题啊，怎么执行效果不对。

Dim dr5 As DataRow = e.DataRow

Dim FirstDay As Date = New Date (Date.Today.Year,Date.Today.Month,1)

Dim LastDay As Date = New Date (Date.Today.Year,Date.Today.Month,Date.DaysInMonth(Date.Today.Year,Date.Today.Month))

Dim dt As DataTable =DataTables("员工信息表")

此主题相关图片如下：代买2.png

If ((dr5("入司日期") <= LastDay) AndAlso ((dr5.isnull("离职日期") =False) OrElse (dr5("离职日期") > LastDay ))) Then

dr5("当月末在职") ="1"

Else

dr5("当月末在职") ="0"

End If

有点色

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/21 17:26:00 [只看该作者]

写完代码以后，记得重置列。

Dim dr5 As DataRow = e.DataRow
Dim FirstDay As Date = New Date (Date.Today.Year,Date.Today.Month,1)
Dim LastDay As Date = firstday.AddMonths(1)
If ((dr5("入司日期") < LastDay) AndAlso ((dr5.isnull("离职日期") =False) OrElse (dr5("离职日期") > LastDay ))) Then
dr5("当月末在职") ="1"
Else
dr5("当月末在职") ="0"
End If

misamisali

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：220 积分：1751 威望：0 精华：0 注册：2016/3/2 9:22:00

Post By：2016/12/21 17:37:00 [只看该作者]

代码不对，麻烦看下案例，

就是实现如果在职“前月末在职”=1，否则 =0

下载信息 [文件大小：下载次数： ]
点击浏览该文件:代码不对案例.zip

有点色

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/21 18:13:00 [只看该作者]

Dim dr5 As DataRow = e.DataRow
Dim FirstDay As Date = New Date (Date.Today.Year,Date.Today.Month,1)
Dim LastDay As Date = firstday.AddMonths(1)
If ((dr5("入司日期") < LastDay) AndAlso (dr5.isnull("离职日期") OrElse dr5("离职日期") > LastDay )) Then
dr5("当月末在职") ="1"
Else
dr5("当月末在职") ="0"
End If

下一主题 >> << 上一主题

主题：[求助]求助Excel函数 转换成 狐表

主题：[求助]求助Excel函数转换成狐表