以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  TextBox1输入内容后关联表执行指定操作  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142901)
--  作者：wu725
--  发布时间：2019/11/8 15:11:00
--  TextBox1输入内容后关联表执行指定操作

目前，调查数据表AfterEdit输入了以下代码，当当TextBox1文本框中输入编号后，不能自动执行以下代码，需要打开表，点击一下输入的内容才能填充。

If e.Col.Name = "问卷编号" AndAlso e.Row.Isnull("问卷编号") = False Then
    For i As Integer = e.Row.Index + 1 To math.min(e.Row.Index + 27,e.Table.Rows.count - 1)
        e.Table.Rows(i)("问卷编号") = e.Row("问卷编号")
    Next
End If
窗体关联了调查数据表中问卷编号列，可否在TextBox1文本框中输入编号后，调查数据表中自动执行向下填充代码。
--  作者：有点蓝
--  发布时间：2019/11/8 16:02:00
--  
TextBox1文本框，valuechanged事件

dim r as row = tables(xxx).current
    For i As Integer = r.Index + 1 To math.min(r.Index + 27,tables(xxx).Rows.count - 1)
        tables(xxx).Rows(i)("问卷编号") = r("问卷编号")
    Next
--  作者：wu725
--  发布时间：2019/11/8 17:08:00
--  
谢谢老师！