[求助]怎样同时在两个表增加数据啊 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎样同时在两个表增加数据啊

共有13003人关注过本帖树形打印复制链接主题：[求助]怎样同时在两个表增加数据啊

48823868

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

加好友

发短信

等级：婴狐帖子：21 积分：228 威望：0 精华：0 注册：2011/10/31 9:09:00

[求助]怎样同时在两个表增加数据啊 发帖心情

Post By：2011/12/20 17:05:00 [只看该作者]

请求各位大虾帮助~

怎样在a表增加数据的同时，b表也一同增加啊？

例：

表a 列---产品编码、产品名称

表b 列---产品编码、产品名称、其他。。。。。

怎样在增加a表产品之后，b表同时自动增加啊？（不需要输入，自动增加的）

谢谢~

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/12/20 17:35:00 [只看该作者]

Select Case e.DataCol.Name
    Case "客户"
        Dim kh As String = e.DataRow("客户")
        Dim tj = "客户 = '" & kh & "'" '表B的客户
        If kh >"" Then
            If DataTables("表B").Find(tj) Is Nothing Then
                Dim dr As DataRow = DataTables("表B").AddNew()
                dr("客户") = kh
            End If
        End If
End Select

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/12/20 17:36:00 [只看该作者]

表属性:

DataColChanged

panda88888

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

加好友

发短信

等级：幼狐帖子：91 积分：740 威望：0 精华：0 注册：2011/4/19 20:39:00

Post By：2011/12/20 22:58:00 [只看该作者]

楼主问的是在已经存在行上增加数据，还是新增加行？这个代码是有区别的。

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/12/21 9:10:00 [只看该作者]

在表A输入数据的同时,在表B 同时输入,不是你要的吗?

48823868

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

加好友

发短信

等级：婴狐帖子：21 积分：228 威望：0 精华：0 注册：2011/10/31 9:09:00

Post By：2011/12/21 15:52:00 [只看该作者]

这两种都行~

48823868

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

加好友

发短信

等级：婴狐帖子：21 积分：228 威望：0 精华：0 注册：2011/10/31 9:09:00

Post By：2011/12/21 15:52:00 [只看该作者]

以下是引用panda88888在2011-12-20 22:58:00的发言：

楼主问的是在已经存在行上增加数据，还是新增加行？这个代码是有区别的。

这两种都行

48823868

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

加好友

发短信

等级：婴狐帖子：21 积分：228 威望：0 精华：0 注册：2011/10/31 9:09:00

Post By：2011/12/21 15:57:00 [只看该作者]

以下是引用blackzhu在2011-12-20 17:35:00的发言：
Select Case e.DataCol.Name
    Case "客户"
        Dim kh As String = e.DataRow("客户")
        Dim tj = "客户 = '" & kh & "'" '表B的客户
        If kh >"" Then
            If DataTables("表B").Find(tj) Is Nothing Then
                Dim dr As DataRow = DataTables("表B").AddNew()
                dr("客户") = kh
            End If
        End If
End Select

试过了，没反应。能再详细一点么？

两个表表a、表b 表a 列------代码、型号表b 列----代码2、型号2、数量

表a 表b

代码型号代码2 型号2 数量

001 A1 001 A1 100

我的意思是加入我新增了表a的数据

如代码 002 型号 a2

然后表b 就自动增加

002 A2 到相应的列里面

没有窗口，没有控件。就是直接在表a输入的时候。表b就有数据了

这样可以么？谢谢了~