求大神帮忙改代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求大神帮忙改代码

共有3991人关注过本帖树形打印复制链接主题：求大神帮忙改代码

profit

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：264 威望：0 精华：0 注册：2019/9/2 23:19:00

求大神帮忙改代码 发帖心情

Post By：2020/2/21 14:34:00 [显示全部帖子]

我这样写的代码在表A增加行时。表A第一列内容是表B，就会在表B同时增加行；表A第一列内容是表C，就会在表C同时也会增加行（之后的表D、表E和表F都会和前面表B、C一样要同时增加行），但是我这个项目的第二列和第三列怎么不会同时添加内容，请大神帮忙改下代码，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

profit

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：264 威望：0 精华：0 注册：2019/9/2 23:19:00

Post By：2020/2/21 14:56:00 [显示全部帖子]

Select Case e.DataCol.name

Case "第一列"

Dim dr As DataRow = DataTables("表C").Find("第一列 = '" & e.OldValue & "'")

If dr Is Nothing Then

dr = DataTables("表C").AddNew()

dr("第一列") = e.DataRow("第一列")

dr("第二列") = e.DataRow("第二列")

dr("第三列") = e.DataRow("第三列")

Else

dr("第一列") = e.DataRow("第一列")

End If

Case "第二列","第三列"

Dim dr As DataRow = DataTables("表C").Find("第一列 = '" & e.DataRow("第一列") & "'")

If dr IsNot Nothing Then

dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

End If

End Select

是不是把这段代码改成你那个？

profit

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：264 威望：0 精华：0 注册：2019/9/2 23:19:00

Post By：2020/2/21 14:58:00 [显示全部帖子]

改成你写的这个代码，我在表A增加行，表B都没有增加行呢

profit

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：264 威望：0 精华：0 注册：2019/9/2 23:19:00

Post By：2020/2/21 15:42:00 [显示全部帖子]

这些表都没有关联，如果关联，那么就是第一列进行关联，也就是分类进行关联。毕竟，如果用物品名称进行关联的话，在其他表中没有出现的物品名称，那么表A里面第一次录入时也找不到对应的表。

现在表A就相当于一个入库表，第一列就相当于分类列，其他表（如：表B，表C，表D，表E和表F）就是这一列里面的分类。

这样，我在物品需要入库时，就只用在表A增加一行，在添加这个物品的相关信息时，如果这个物品的分类为表B，那么这个物品的信息就自动在表B中增加，如果这个物品分类为表C，那么这个物品也能在表C中自动增加该物品的相关信息。

还有就是表A在增加两行时，第一列、第二列和第三列内容都一样是表B，那么表B里面就只增加一行，同时在数量列的数量求和。

我翻来覆去的看了帮助的跨表引用、同步输入和辅助录入这些，但还是没能知道怎么写这个代码，但是我现在一点头绪都没有。

profit

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：264 威望：0 精华：0 注册：2019/9/2 23:19:00

Post By：2020/2/21 16:42:00 [显示全部帖子]

你也知道，单位有固定资产，还经常要统计车辆啊，家具啊，办公电脑这些的，所以我就想弄个这样的项目好管理这些东西。其实像家具、办公电脑和一些易耗品还好弄，因为这些只要名称一样只要加数量就好，但是车辆和通信设备就不一样了，每辆车的车架号和发动机号都不一样，通信设备也是这样，ID号不一样使用人也不一样。而且分类也不可能有那么多，我只分了几类。我还是重新发个项目给您看看吧。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

[此贴子已经被作者于2020/2/21 16:43:42编辑过]

profit

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：264 威望：0 精华：0 注册：2019/9/2 23:19:00

Post By：2020/2/21 16:49:00 [显示全部帖子]

这个代码我知道，原来我也是用的这个。你也知道，单位上叫报这些的时候多，不能每次需要的时候在去统计，所以我才想了这个办法这样统一管理。如果我需要上报车辆信息的时候，我只需要打印车辆管理那个表，单位领导需要看单位物资的时候我就把库存打印出来，这不是要方便很多吗？

profit

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：264 威望：0 精华：0 注册：2019/9/2 23:19:00

Post By：2020/2/21 16:53:00 [显示全部帖子]

再说我分类也就是把办公桌和电脑这些固定资产分到一起为办公家电，就分了办公家电、低值易耗、车辆管理、通信设备、警用装备这五类，也不多啊。如果我把车辆放到库存里，那么车辆的信息跟其他物品的信息也不一样，那么我的库存表得需要弄多少列呢？你说是吧。

profit

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：264 威望：0 精华：0 注册：2019/9/2 23:19:00

Post By：2020/2/21 17:50:00 [显示全部帖子]

你说用一个商品信息表管理所有商品的信息，和我这样管理的方法是一样啊，只是我把办公家电、警用装备和低值易耗分开了，车辆管理和通信设备这两个是必须要分开的，这两个的信息和前面办公家电、警用装备、低值易耗这些的信息完全不一样。

是这样，我做的办公家电、警用装备、低值易耗、车辆管理和通信设备这些表就是商品的详细信息，也就相当于你说的用一个商品信息表管理所有的商品，而不是把这些信息放到库存表里面。其实，刚才我发出来的项目就是我临时做的一个项目没有把所有的列都放进去。可能库存表里面我把品牌和型号列放进去了。在另外一个项目里库存是没有品牌列和型号列的。

还有就是入库表不可能把车辆信息表里面的所有列和通信设备表里的所有列还有就是物质管理表里的所有列都囊括进去吧？这样说，是不是我的入库界面需要做三个？分别用来增加车辆管理、通信设备和物资管理这三个表呢？