主题：自动填充

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

此主题相关图片如下：表a.png

此主题相关图片如下：表b.png

 

1.表A输入数据时，当表B 车号列与表A车号列内容相同时，则从表A中自动提取数据按两表中相同列名填写到表B中，并按日期排序

 

这段代码加到哪里

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

 

此主题相关图片如下：1.png

 

此主题相关图片如下：2.png

1.当表A车号列出现8Y315时，表车8Y315 日期列 货物列 起点列 终点列 现金金额列 数据从表A中自动读取并填入日期列并按时间排序，修改表A中数据时,车8Y315 表中对应的相同列名数据跟着自动修改。

同理：当有很多 车XXX 表 时，只要是在表A中车号列出现 XXX 车号时  对应的  车XXX表 日期 货物 起点 终点 现金金额 等列 自动从表A中读取数据并按日期排序，修改表A中数据时,车XXX 表中对应的相同列名数据跟着自动修改。

 

 

首先谢谢老师的耐心帮助，对于小学文化的我，购买这个软件主要是方便实用，也没有时间和精力去深入研究了，也看不懂。

老师帮写的代码我理解成表B中车号列 和时间列 两列内容 和表A相同列名 内容相同时，表B中的 货物列 起点和终点列 才自动从表A相同列名提取数据。

增加查询表也可以，但是对于车XXX表来说 还有很多列是表A中没有的。

我想实现的是：对于车XXX 表来说，每一个车XXX表 车号列 都是同一个车号，只要是该表车号列 车号 和 表A车号列 内容 相同时，时间列 货物列 起点和终点列 自动从表A中提取相同列名中的数据，日期列并按时间排序。

表A是总记账表  车XXX 表 是部分数据从A表中提取，还有部分数据 是手工输入的，单独做每一个车的数据表是想直观的了解每个车的动态开支等情况，如果所有的车表都合成一个表的话，看上去有点乱，有的时候忘记筛选。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

1.自动复制行，首先我还得表A中加一个逻辑列，其次，因为表A是一个总表，车号列中有很多不同的车号，如果参考自动复制行的代码来编写，表A中的车号与车XXX表中车号对应不起来。

2. 自动输入： 车XXX表DataColChanged中

If e.DataCol.Name = "车号" Then '发生变化的是车号吗?
    '在表A找出该车号

    Dim dr As DataRow
    dr = DataTables("表A").Find("车号 = '" & e.DataRow("车号") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("日期")= dr("日期")
        e.DataRow("货物")= dr("货物")
        e.DataRow("起点")= dr("起点")
    End If
End If

这是从车表中输入车号，对应的从表A中提取，问题是我想做的是：在A中输入数据，车表中与A表相同列名自动填入A中的数据，并且随A中数据的变化而变化.

 

 

表A中 DataColChanged

 

Select Case e.DataCol.name
    Case "车号"
        Dim dr As DataRow = DataTables("表B").Find("车号 = '" & e.DataRow("车号") & "'")
        If dr IsNot Nothing Then
            dr("起点") = e.DataRow("起点")
            dr("日期") = e.DataRow("日期")
            dr("货物") = e.DataRow("货物名称")
        End If
End Select

B表中 起点 日期 货物 列 内容出不来，另外 这些填入的内容都是A中输入最新的数据

此主题相关图片如下：表a.png

此主题相关图片如下：表b.png

 

1.在A中输入另一行数据时 希望B表中不是替代原有数据，而是按照行的编号顺序自动填入
2.B表中已有的数据，如果A表修改某一行的内容后，B表中对应的列也跟着自动修改，A表删除某一行，B表也跟着自动删除对应行

此主题相关图片如下：8y315.png

在A表中 新增一行 车8Y315 表 中出现这样

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

上楼没看到 不好意思啊！

 

1..在表A中按顺序输入这三个车号数据时，车表填充的内容行应该在原有数据的下方，不应该间隔这么大的距离。

此主题相关图片如下：表a.png

填充的内容应该在原有的数据基础上按左侧编号往下排

此主题相关图片如下：8y315.png

此主题相关图片如下：7h127.png