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

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

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

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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实例。

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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函数转换成狐表