- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- table 新增行后，textbox 的赋值自动消失了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151735)
-- 发布时间：2020/7/2 14:06:00
-- table 新增行后，textbox 的赋值自动消失了
按 1 新增后 ，在 2 位置 我随便输入资料， 在圈起的位置是系统自动赋值的 ，然后随便点一个 textbox ，圈起的位置的赋值会自动消失不见 ，是什么原因呢 ？
下面是代码
此主题相关图片如下：sp20200702_135849.png
此主题相关图片如下：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
-- 发布时间：2020/7/2 14:12:00
--
如果控件是绑定列的，给绑定的表格赋值，不要直接给控件赋值：http://www.foxtable.com/webhelp/topics/2436.htm