老师, 为何 到我的系统里 不执行这部分呢
If Result = DialogResult.Yes Then
For Each bt As object In e.Form.Controls
If bt.Name.Contains("_un_") AndAlso bt.text="" Then
MessageBox.Show(bt.Name) 未见弹窗
bt.BackColor=Color.Red
MessageBox.Show("存在空数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
e.Cancel=True
bt.Select
Exit For
Else
bt.BackColor=Color.White
End If
Next