Dim n As Integer = DataTables("凭证").Compute("Max(凭证ID)")
Dim r As Row = Tables("凭证").Current(n)
If r IsNot Nothing Then
If r.IsNull("附件张数") Then
MessageBox.Show("附件张数不允许为空!")
e.Cancel = True
End If
If r("借方金额") <> r("贷方金额") Then
MessageBox.Show("借贷不平衡!")
e.Cancel = True
End If
If Tables("凭证.凭证明细").Rows(0)("借方金额") = "" Then
MessageBox.Show("请录入借贷金额!")
e.Cancel = True
End If
End If
代码第一、二句应如何改?