请教窗口录入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师您好！

我写了一段代码，本想是输入“b”后"焊接调试检验表"里输入代码里的相应字段后添加新的行。但是表里总是添加新的两行。这是这么回事？

static flag As Boolean = False

If e.Form.controls("TextBox3").text = ("f") Then

Tables("焊接调试检验表").Current("结果结论1") = ("√")

Tables("焊接调试检验表").Current("结果结论2") = ("√")

Tables("焊接调试检验表").Current("产品处理结果1") = ("转下一道")

Tables("焊接调试检验表").Current("产品处理结果2") = ("转下一道")

Tables("焊接调试检验表").Current("名称") = ("电脑中频治疗仪")

Forms("焊接调试检验").panel.FindForm.Activate

Forms("焊接调试检验").Controls("TextBox1").Select()

Tables("焊接调试检验表").AddNew()

End If

If e.Form.controls("TextBox3").text = ("b") Then

Forms("焊接调试检验").panel.FindForm.Activate

Forms("焊接调试检验").Controls("DropBox1").Select()

End If

主题：请教窗口录入问题