求助关于自动输入的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 nr As Row = Tables("成交录入").AddNew()
            nr("合同编号") = e.Form.Controls("TextBox1")
        End If
    End With
    Forms("成交录入").open
Else
    Msgbox("在新增前请在模糊查询里输入你要录入的合同编号!")
End If

主题：求助关于自动输入的代码