- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]自动填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141942)
-- 发布时间：2019/10/14 22:00:00
-- [求助]自动填充
1、比如，在textbox1中录入“目录”两个字，窗口表的[第一列]的所有行，自动重复填充相同的字符；
textbox1的TextChanged事件，这段代码录入第一个字时就触发事件，请老师帮助修改代码。
For Each r As Row In Tables("窗口_table1").Rows
If r("第一列") = "" Then
r("第一列") = e.Form.Controls("TextBox1").text
End If
Next
2、在textbox2中录入“001”数字，窗口表的[第二列]的所有行，自动序列填充编号；（录入0001或00001......相同的效果）
这个代码不知道怎样写，请老师指教。
谢谢！
此主题相关图片如下：001.jpg
[此贴子已经被作者于2019/10/14 22:01:53编辑过]
-- 发布时间：2019/10/14 22:11:00
--
1、valuechanged事件
For Each r As Row In Tables("窗口_table1").Rows
r("第一列") = e.Form.Controls("TextBox1").text
Next
2、valuechanged事件
dim cnt as integer = val(e.Form.Controls("TextBox1").text)
For Each r As Row In Tables("窗口_table1").Rows
r("第一列") = format(cnt,"000")
cnt = cnt + 1
Next