主题：请教窗口录入问题

老师您好！

老师，确实是这样。

简单说明一下功能。检验结果：输入f增加一行，光标移到产品编码框，循环输入。检验结果：输入b光标移到人为故障：在性能检验：那里回车，增加一行，光标回到产品编码框

焊接调试检验_Button2_Click

 

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

 

焊接调试检验_Button3_Click

 

If Tables("焊接调试检验表").Current IsNot Nothing Then

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

End If

 

焊接调试检验_DropBox1_Leave

 

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

Tables("焊接调试检验表").Current("结果结论1")=e.Form.Controls("DropBox1").Text

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

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

 

焊接调试检验_DropBox2_Leave

 

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

Tables("焊接调试检验表").Current("结果结论2")=e.Form.Controls("DropBox1").Text

Tables("焊接调试检验表").Current("检验人")=e.Form.Controls("ComboBox1").Text

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

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

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

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

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

 

焊接调试检验_TextBox1_Enter

 

e.Form.controls("TextBox3").text =Nothing

e.Form.controls("DropBox1").text =Nothing

e.Form.controls("DropBox2").text =Nothing

 

焊接调试检验_TextBox1_Leave

 

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

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

 

焊接调试检验_TextBox1_TextChanged

 

static flag As Boolean = False

If e.sender.text.length > 3 AndAlso flag Then

    If e.sender.text(0) = "0" And e.sender.text(1)="1" Then

       e.Form.controls("TextBox2").text = "J18A1"

        e.Form.controls("TextBox2").WriteValue    

End If

End If

flag = True

 

焊接调试检验_TextBox3_Leave

 

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
此主题相关图片如下：1111.jpg

此主题相关图片如下：11111.jpg


此主题相关图片如下：13.jpg

1.无故障时检验结果输入f，有故障时检验结果输入b。表格自动输入。输入完成后增加一行

老师代码中总共有3个Tables("焊接调试检验表").AddNew()指令。我把其余两个给删了，就留下一个还是曾两行。

老师
此主题相关图片如下：14.jpg

三个控件时代码执行正常，增加一行。只要再增加一个控件（文本框或组合框）不做任何设置，执行代码后就增加两行。

老师，addnew代码前加入msgbox(123)后msgbox重复出现两次，第一次出现后点确定增加一行，然后又出现一次，确定后再增加一行。

老师，问题解决了。