一段代码,要求在"无账号"列有√的行,"大帐存款"列必须填入数据,并提示"OK",否则提示"是否遗漏",现在的情况是,填入0时,提示"是否遗漏",要求在填入0的情况下,提示能显示"OK",代码应该如何修改,请各位老师指教,谢谢!!
For Each dr As DataRow In DataTables("存款明细").DataRows If dr("无账号") = "√" And dr("大帐存款") = Nothing Then MessageBox.Show("请检查无账号的大帐存款是否漏填","提示") Return End If
Next
MessageBox.Show("OK","提示")