---------------------------
错误
---------------------------
编译错误:“DataRow”不是“RowColEventArgs”的成员。
错误代码：Dim dr As DataRow =e.DataRow
---------------------------
确定
---------------------------、
If e.Col.Name = "凭证ID" Then
'Dim dr As DataRow = Tables("凭证").Current
Dim dr As DataRow =e.DataRow
If dr.IsNull ("核算主体") Or Dr.IsNull("申请日期") Or Dr.IsNull("部门") Or Dr.IsNull("附件张数") Then
MessageBox.show("带 * 为必填","提示")
e.cancel = True
Else
DataTables("凭证明细").LoadFilter="凭证ID='" & e.Row("凭证ID") & "'"
DataTables("凭证明细").Load
Forms("凭证明细").Open()
End If
End If
加好友 
发短信
Post By：2019/9/9 18:12:00 [显示全部帖子]
