以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助按条件控制新增按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53249)
--  作者：188802386
--  发布时间：2014/7/3 15:40:00
--  求助按条件控制新增按钮
新增按钮的代码如下：
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

我想实现TextBox1输入7个字符才可以新增，请问该如何修改以上代码。