以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助逻辑自动填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77545)

--  作者:Carl
--  发布时间:2015/11/20 9:41:00
--  求助逻辑自动填充
要完成这样一个功能:
如A表包含B表里面所有信息,若在B表里面输入一个特定的数字(比如输入12345)就会逻辑填充A表里面12345对应的其它列的信息到B表相应列。
请各位高手给写段代码参考指导一下,感谢!

--  作者:大红袍
--  发布时间:2015/11/20 9:55:00
--  

呃,参考

 

http://www.foxtable.com/help/topics/1451.htm

 

http://www.foxtable.com/help/topics/1459.htm

 


--  作者:Carl
--  发布时间:2015/11/20 10:54:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20151120105124.jpg
图片点击可在新窗口打开查看
这个错误提示是什么原因?

--  作者:大红袍
--  发布时间:2015/11/20 10:58:00
--  

写到datacolchanged事件,表属性那里。


--  作者:Carl
--  发布时间:2015/11/20 12:40:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20151120123905.jpg
图片点击可在新窗口打开查看
要是在同一个表里面复制行,怎么写?

--  作者:大红袍
--  发布时间:2015/11/20 12:58:00
--  

直接写

 

CurrentTable.Current.Clone


--  作者:Carl
--  发布时间:2015/11/20 13:08:00
--  
不是很理解您这个意思,希望是在逻辑列的基础自动复制行。
--  作者:大红袍
--  发布时间:2015/11/20 13:23:00
--  

If e.DataCol.name = "逻辑列" AndAlso e.DataRow("逻辑列") = True Then
    Dim dr As DataRow = e.DataTable.addnew
    For Each dc As DataCol In e.DataTable.datacols
        If dc.name <> "逻辑列" Then
            dr(dc.name) = e.DataRow(dc.name)
        End If
    Next
End If


--  作者:Carl
--  发布时间:2015/11/20 13:38:00
--  
牛!懂了,感谢
--  作者:Carl
--  发布时间:2015/11/20 16:34:00
--  
表A的一列的单元格录入数据会自动填充到表B对应列的单元格,但表A的一列的单元格删除数据时,表B对应列的单元格不会删除,这个应该怎么写啊?