自动添加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

根据老师的帮助弄成了以下代码

Dim yuedu2 As String = Format( e.DataRow("作业开始时间"),"yyyy年MM月")

Dim pr2 As DataRow = e.DataRow.GetParentRow("绩效工时统计") '获得此明细对应的订单

pr2 = DataTables("绩效工时统计").Find("作业者 = '" & e.DataRow("作业者") &"' And 年月 = '" & yuedu2 & "'")

If pr2 IsNot Nothing Then '如果有对应的订单

If pr2.GetChildRows("PEQ数据").count = 1 Then '且这个订单的明细只有一个了

pr2.Delete '删除这个订单

End If

出现错误

调用的目标发生了异常。

未将对象引用设置到对象的实例。

请老师斧正，谢谢！

Dim yuedu2 As String = Format( e.DataRow("作业开始时间"),"yyyy年MM月")

Dim pr2 As DataRow = DataTables("绩效工时统计").Find("作业者 = '" & e.DataRow("作业者") &"' And 年月 = '" & yuedu2 & "'")

If pr2 IsNot Nothing Then '如果有对应的订单

pr2.Delete '删除

End If

老师，谢谢，这个问题解决了，

If e.DataCol.Name = "作业者" Then

If e.NewValue IsNot Nothing Then

Dim dr6 As DataRow

Dim yuedu As String = Format( e.DataRow("作业开始时间"),"yyyy年MM月")

dr6 = DataTables("绩效工时统计").Find("作业者 = '" & e.NewValue & "' and 年月 = '" & yuedu & "'")

If dr6 Is Nothing Then

dr6 = DataTables("绩效工时统计").AddNew()

dr6("作业者") = e.DataRow("作业者")

dr6("年月") = yuedu

End If

将年月引入后，显示的是0001年01月，正确的应该是2016年01月，将作业开始时间列重置一下后，

会重新追加行，日期也成正确的了，

我已经在项目属性里设置了以下重置代码，但还是出现以上日期格式不对

If MainTable.Name = "PEQ数据" Then

DataTables("PEQ数据").DataCols("作业者").RaiseDataColChanged()

DataTables("PEQ数据").DataCols("作业者ID").RaiseDataColChanged()

DataTables("PEQ数据").DataCols("作业开始时间").RaiseDataColChanged()

请问老师，如何能不用每次都重置，就能显示正确日期格式，谢谢！

重新上传有问题的项目看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:绩效工时3.zip

开发者 qdkf

下载信息 [文件大小：下载次数： ]
点击浏览该文件:绩效工时.rar

谢谢老师，但是还是有“0001年”这种异常，不知道问题出在哪里？

此主题相关图片如下：2348.png

已有的数据，重置一下列或者手工自己改改

主题：自动添加