老师,能帮忙看看这个吗?如果执行了if部分的内容,然后到重新执行红色部分的代码如何写呀,感谢 感谢 e.Form.Controls("Label1").Text = "PSK" + e.Form.Controls("DateTimePicker1").Text.replace("-","") + "-" + e.Form.Controls("TextBox1").Text '合同号
Dim drb As DataRow
drb = DataTables("表A").Find("编号 = '" & e.Form.Controls("Label1").Text & "'")
If drb IsNot Nothing Then
Forms("窗口1").Controls("TextBox1").Text += 1
'MessageBox.Show("已经有相同的合同号!")
重新执行红色代码部分
Return
End If
Tables("表A").current("编号")=e.form.controls("Label1").text '列内容变为已流转