以文本方式查看主题

-  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=135101)

--  作者:jingledyang
--  发布时间:2019/5/16 22:28:00
--  在列中快速输入数据
请问,我在某列中选择多个单元格后,在焦点单元格中输入数据,该数据同时填充其他单元格。代码如何写啊?
--  作者:jingledyang
--  发布时间:2019/5/16 22:39:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:快速输入.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2019/5/16 23:46:00
--  

changeEdit事件,或者afterEdit事件

 

If e.Col.name = "第二列" Then
    For i As Integer = e.Table.TopRow  To e.Table.BottomRow
        e.Table.Rows(i)(e.Col) = e.text
    Next
End If


--  作者:jingledyang
--  发布时间:2019/5/17 19:49:00
--  
老师,本列引用字典数据或自定义项目数据均出错,请问是怎么了?
--  作者:jingledyang
--  发布时间:2019/5/17 19:50:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:代码错误.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/5/17 20:15:00
--  
If e.Col.name = "第二列" Then
    For i As Integer = e.Table.TopRow  To e.Table.BottomRow
        e.Table.Rows(i)(e.Col.name) = e.row(e.Col.name)
    Next
End If
--  作者:jingledyang
--  发布时间:2019/5/17 20:44:00
--  
非常感谢