主题：求助按条件控制新增按钮

If DataTables("成交录入").Find("合同编号 = '" & e.Form.Controls("TextBox1").Text & "'") Is Nothing Then

Dim htbh As WinForm.TextBox = e.Form.Controls("TextBox1")

If e.Form.Controls("TextBox1").text> "" Then

'e.Form.controls("Button5").enabled = False

With Tables("成交录入")

    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改

       Dim r As Row =  Tables("成交录入").AddNew()

r("合同编号")=e.form.controls("TextBox1").text

    End If

End With

Forms("成交录入").open

Else

    Msgbox("在新增前请在模糊查询里输入你要录入的合同编号!")

End If

Else

     msgbox("该合同编号已存在,请不要重复新增!")

End If