以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮写代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152751)

--  作者:wangglby
--  发布时间:2020/7/21 0:21:00
--  帮写代码

想实现如下功能:

 

表A 有如下两个列,第一列日期,第二列为数字代码(此两列全为人工录入)

 

第一列     第二列

5月1日     1

5月3日     2

6月3日     1

 

 

表B的第一列,第一行自动填充为 表A的第二列为1时对应的第一列最新的日期(如果没有1,则默认为1月1日)

即:表B的第一行第一列为  6月3日

 

当表A内容变化时,如下

 

第一列     第二列

5月1日     1

5月3日     2

6月3日     1

6月8日     1

 

此时,表B的第一行第一列值为 6月8日。

 

 

 

万分感谢。

 


--  作者:有点蓝
--  发布时间:2020/7/21 9:03:00
--  
没看懂。意思是表A任何一个单元格变化,表B就增加一行?
--  作者:wangglby
--  发布时间:2020/7/21 12:39:00
--  

我用EXCEL做了个简单的示意图,把表达的意思说明下
图片点击可在新窗口打开查看此主题相关图片如下:11111111111111.jpg
图片点击可在新窗口打开查看


--  作者:wangglby
--  发布时间:2020/7/21 12:42:00
--  
当表A内容变化是,表B的第一行第一列,跟着变化情况
--  作者:有点蓝
--  发布时间:2020/7/21 13:33:00
--  
意思是表B的第一行第一列,永远记录的是表A最后一行的数据?
--  作者:hudouzhitiger
--  发布时间:2020/7/21 14:23:00
--  
\'DataColChanged表事件

If e.DataCol.Name="第二列" Then
    If e.NewValue=1 Then
        DataTables("表c").DataRows(0)("第一列")=e.DataRow("第一列")
    End If
End If

--  作者:wangglby
--  发布时间:2020/7/21 21:41:00
--  
我用你的代码试了下,好像不能实现,请再帮看看,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:有点蓝
--  发布时间:2020/7/21 21:48:00
--  
只跟最后一行有数据的行有关,还是随便一行改为1,都更新表C?
--  作者:wangglby
--  发布时间:2020/7/21 21:48:00
--  
表B的第一行第一列,永远记录的是表A最后输入的(且第二列为1时的)的数据

--  作者:有点蓝
--  发布时间:2020/7/21 21:59:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1(2).zip