table 新增行后，textbox 的赋值自动消失了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

按 1 新增后，在 2 位置我随便输入资料，在圈起的位置是系统自动赋值的，然后随便点一个 textbox ，圈起的位置的赋值会自动消失不见，是什么原因呢？

下面是代码

此主题相关图片如下：sp20200702_135849.png

'Dim Row_customer As Row

Dim str_customer_serial As String

Dim lbl_customer_no As WinForm.Label = e.Form.Controls("lbl_customer_no")

Dim txt_customer_no As WinForm.TextBox = e.Form.Controls("txt_customer_no")

Dim txt_primary_key As WinForm.TextBox = e.Form.Controls("txt_primary_key")

e.Form.Controls("btn_Addnew").text=vars("add_new")

P_selected_tablename=CurrentTable.Name

P_selected_formname=CurrentTable.Name

With Tables("customer")

P_Row_Customer= .AddNew()

p_primary_key = DataTables("customer") .Compute("Max(primary_key)") + 1

Functions.execute("Sub_GetSerial")

End With

'DataTables("customer").Save

P_Pri_pc_serial=P_primary_key &"_" & P_pc_serial

txt_customer_no.Text=P_Pri_pc_serial

str_customer_serial=p_pri_pc_serial

txt_primary_key.text=p_primary_key

P_data_status=1 ' add

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

主题：table 新增行后，textbox 的赋值自动消失了