- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 文本框绑定无效 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151129)
-- 发布时间：2020/6/15 23:01:00
-- 文本框绑定无效
老师好。有个问题我不明白，描述如下：
我建立客户录入窗口，将text客户id文本框绑定到客户表的 客户id 列，
此主题相关图片如下：捕获.png
在窗口的 “新增” 按钮 的click事件中设如下代码：
With Tables("客户表")
If .Current Is Nothing OrElse .Current.DataRow.RowState
= DataRowState.Unchanged
Then \'
Tables("客户表").AddNew()
End If
End With
Dim lis As new List(of Integer)
For Each dr As Row In Tables("客户表").Rows
lis.add(dr("客户id"))
Next
lis.Sort()
Dim Ind As
Integer = lis(lis.Count - 1) + 1
e.Form.Controls("Text客户id").text
= Ind
此时，文本框出现了 ind值，是 716
此主题相关图片如下：捕获1.png
此主题相关图片如下：捕获3.png
而我从 单位名称 combobox框选择单位时后，text客户id 就变成 空值了。
-- 发布时间：2020/6/15 23:02:00
--
而我从 单位名称 combobox框选择单位时后，text客户id 就变成 空值了。
此主题相关图片如下：捕获11.png
-- 发布时间：2020/6/15 23:09:00
--
应该给绑定的表格赋值http://www.foxtable.com/webhelp/topics/2436.htm
“新增” 按钮 的click事件
With Tables("客户表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'
dim r as row = Tables("客户表").AddNew()
r("客户id") = Tables("客户表").compute("max(客户id)") + 1
End If
End With
-- 发布时间：2020/6/16 9:24:00
--
感谢篮板主！！