If r.IsNull("版本期望交期") str &= "版本期望交期," End If If r.IsNull("show_version") str &= "show version," End If If r.IsNull("需求描述") Then str &= "需求描述" End If If str > "" Then MessageBox.show("请检查," & str.Trim(",") & "不能为空","点击第二步提交时请确认",MessageBoxButtons.OK,MessageBoxIcon.Question) End If