| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- A表增加了记录，B表对应行 数值也改变，怎么实现 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52012) |
| -- 作者：卷小毛 -- 发布时间：2014/6/7 10:48:00 -- A表增加了记录，B表对应行 数值也改变，怎么实现 A表 “实验结果表” 列有 ： 动物编号 ，BV，实验日期 B表 "个体信息表" 列有： 动物编号，BV，最新实验日期 （一个动物编号只有一条记录） | 动物编号 | BV | 实验日期 | A表，增加一条记录 SOE1 阳性 2014-01-03 B表，对应的 动物编号 SOE1 变成 | 动物编号 | BV | 最新实验日期 | SOE1 阳性 2014-01-03 过来三天 | 动物编号 | BV | 实验日期 | 如果 A表，增加一条记录 SOE1 阴性 2014-01-03 B表 B表，对应的 动物编号 SOE1 变成 | 动物编号 | BV | 最新实验日期 | SOE1 阴性 2014-01-06 请问 怎么实现。。。。求教 谢谢 [此贴子已经被作者于2014-6-7 10:48:23编辑过]
|
| -- 作者：Bin -- 发布时间：2014/6/7 10:55:00 -- http://www.foxtable.com/help/topics/2234.htm |
| -- 作者：blackzhu -- 发布时间：2014/6/7 11:03:00 -- Select Case e.datacol.Name Case "列名1", "列名2" Dim dr As DataRow dr = DataTables("表B").Find("列名1=\'" & e.datarow("列名1") & "\' And 列名2=\'" & e.datarow("列名2") & "\'") If dr IsNot Nothing Then \'如果找到 dr("列名1") = e.datarow("列名1") dr("列名2") = e.datarow("列名2") Else Dim dx As DataRow = DataTables("表B").AddNew dx("列名1") = e.datarow("列名1") dx("列名2") = e.datarow("列名2") End If End Select
|
| -- 作者：卷小毛 -- 发布时间：2014/6/7 11:08:00 -- 先谢谢你们，我再看。。。 |