标题：[求助]怎样同时在两个表增加数据啊

1楼

48823868 发表于：2011/12/20 17:05:00

请求各位大虾帮助~

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

例：

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

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

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

谢谢~

2楼

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

3楼

blackzhu 发表于：2011/12/20 17:36:00

表属性:

DataColChanged

4楼

panda88888 发表于：2011/12/20 22:58:00

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

5楼

blackzhu 发表于：2011/12/21 9:10:00

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

6楼

48823868 发表于：2011/12/21 15:52:00

这两种都行~

7楼

48823868 发表于：2011/12/21 15:52:00

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

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

这两种都行

8楼

48823868 发表于：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就有数据了

这样可以么？谢谢了~

9楼

48823868 发表于：2011/12/22 10:46:00

自己顶一下~

10楼

blackzhu 发表于：2011/12/22 12:36:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:两表同时输入.table

在表A新增数据试试看表B的结果.

共11 条记录, 每页显示 10 条, 页签: [1] [2]