[求助]根据项目自动填充对应日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]根据项目自动填充对应日期

共有2723人关注过本帖树形打印复制链接主题：[求助]根据项目自动填充对应日期

csxuebai

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

加好友

发短信

等级：婴狐帖子：33 积分：513 威望：0 精华：0 注册：2009/3/8 23:20:00

[求助]根据项目自动填充对应日期 发帖心情

Post By：2015/12/16 23:39:00 [只看该作者]

有修理记录表和保养计划表，保养计划表需要对车辆的一二级保养安排计划日期，并根据修理记录填写实际保养日期，怎么样才能够实现，在修理记录表的报修项目里如果含有一级保养或二级保养等，实现在计划表中自动生成实际完成日期？（规定实际完成可以在计划前后几天，但必须要当月的，所以不会出现这个月的计划实际在下个月完成）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/12/17 9:40:00 [只看该作者]

修理计划DataColChanged

代码类似：

Select Case e.DataCol.Name

Case "修理项目"

If e.NewValue = "一级保养" Then

Dim dr As DataRow = DataTables("保养计划").Find("车号 = '" & e.DataRow("车号") & "' and 实际完成日期 is null")

If dr IsNot Nothing Then

dr("实际完成日期") = Date.now

End If

End Select

csxuebai

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

加好友

发短信

等级：婴狐帖子：33 积分：513 威望：0 精华：0 注册：2009/3/8 23:20:00

Post By：2015/12/17 16:43:00 [只看该作者]

谢谢，不过这个方法测试下来好像不行啊。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.foxdb

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/12/17 17:19:00 [只看该作者]

放在保养计划，代码改下

Select Case e.DataCol.Name
    Case "修理项目"
        If e.NewValue = "一级保养" AndAlso e.DataRow.IsNull("实际完成日期") Then
            e.DataRow("实际完成日期") = Date.now
        End If
End Select

选择完后，焦点要离开单元格，才会触发事件