主题：[求助]统计空值

PrepareEdit

e.cancel = True

DataColChanged

If e.DataCol.Name = "客户名称" Then

    If e.NewValue Is Nothing Then

        e.DataRow("客户编号") = Nothing

        e.DataRow("开piao单位名称") = Nothing

    Else

        Dim dr As DataRow

        dr = DataTables("客户档案").Find("[客户名称] = '" & e.NewValue & "'")

        If dr IsNot Nothing

            e.DataRow("客户编号") = dr("客户编号")

            e.DataRow("开piao单位名称") = dr("开piao单位名称")

            e.DataRow("申请日期") = Date.Today

            e.DataRow("申请人") = user.name

        End If

    End If

End If

DataRowAdding

e.DataRow("编辑者") = User.name

BeforeDeleteDataRow

If  e.DataRow("审核") <>"" Then

    MessageBox.Show("单据已经审核,不能删除!", "提示")

    e.Cancel = True

End If

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