- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎样同时在两个表增加数据啊 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15322)
-- 发布时间：2011/12/20 17:05:00
-- [求助]怎样同时在两个表增加数据啊
请求各位大虾帮助~
怎样在a表增加数据的同时，b表也一同增加啊？
例：
表a 列---产品编码、产品名称
表b 列---产品编码、产品名称、其他。。。。。
怎样在增加a表产品之后，b表同时自动增加啊？（不需要输入，自动增加的）
谢谢~
-- 发布时间：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
-- 发布时间：2011/12/20 17:36:00
--
表属性:
DataColChanged
-- 发布时间：2011/12/20 22:58:00
--
楼主问的是在已经存在行上增加数据，还是新增加行？这个代码是有区别的。
-- 发布时间：2011/12/21 9:10:00
--
在表A输入数据的同时,在表B 同时输入,不是你要的吗?
-- 发布时间：2011/12/21 15:52:00
--
这两种都行~
-- 发布时间：2011/12/21 15:52:00
--
以下是引用panda88888在2011-12-20 22:58:00的发言：
楼主问的是在已经存在行上增加数据，还是新增加行？这个代码是有区别的。
这两种都行
-- 发布时间：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
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就有数据了
这样可以么？谢谢了~
-- 发布时间：2011/12/22 10:46:00
--
自己顶一下~
-- 发布时间：2011/12/22 12:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:两表同时输入.table |
在表A新增数据试试看表B的结果.