但是如果程序关闭重新打开后，再打开输入窗口输入，

就会和之前的数据有一行空行

请问老师 是怎么回事

------------------------------------------------------------

窗口表事件

 

窗口与控件事件

 

验货_AfterLoad

 

If CurrentTable.Name = "验货" Then

    CurrentTable.Position = CurrentTable.rows.count-1

End If

 

验货_TextBox2_Leave

 

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim dr As DataRow = cm.SelectedItem

If dr IsNot Nothing Then

    Tables("验货").current("员工") = dr("姓名")

End If

If Tables("验货").current("系统单号") > "0" Then

    Tables("验货").current("验货时间") = Date.now

End If

e.Form.Controls("TextBox1").Select

Tables("验货").Current.Save()

Syscmd.Project.Save()

 

验货_TextBox2_Validating

 

If e.sender.Text > "" AndAlso e.sender.text.length < 4 Then

    Tables("验货").AddNew()

    Else

    msgbox("信息输入错误,请重新输入")

End If