老师，错误提示：调用目标发生了异常。这个错误无法显示详细信息，而且无法关闭，需要“结束任务”关闭整个程序。
如果注释“If e.DataRow("time") = dt Then”，可以正常使用，但我怕有人不小心改到不是今天的数据。
此主题相关图片如下：111.jpg
代码如下：
Select Case e.DataCol.name
Case "机型" '从机型明细表,自动带入标准规格
If e.DataRow.IsNull("机型") Then
e.DataRow("订单规格_控制型式") = Nothing
e.DataRow("订单规格_主轴") = Nothing
e.DataRow("订单规格_平衡方式") = Nothing
e.DataRow("订单规格_冲屑装置") = Nothing
Else
Dim dt As Date = Date.Today
If Tables("生产计划").Current("作业日期") = dt '自动带入今天创建计划的规格
Dim dr As DataRow
dr = DataTables("机型明细").Find("[机型] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("订单规格_控制型式") = dr("标准规格_控制型式")
e.DataRow("订单规格_主轴") = dr("标准规格_主轴")
e.DataRow("订单规格_平衡方式") = dr("标准规格_平衡方式")
e.DataRow("订单规格_冲屑装置") = dr("标准规格_冲屑装置")
End If
End If
End If
End Select
此主题相关图片如下：222.jpg
[此贴子已经被作者于2015/11/30 12:08:52编辑过]
加好友 
发短信
Post By：2015/11/29 20:12:00 [显示全部帖子]
