| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 自动输入实现 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55711) |
| -- 作者：yifan3429 -- 发布时间：2014/8/21 19:54:00 -- 自动输入实现 请删帖 [此贴子已经被作者于2014-8-21 21:01:02编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/8/21 19:56:00 -- 你想问什么？
http://www.foxtable.com/help/topics/1458.htm
|
| -- 作者：yifan3429 -- 发布时间：2014/8/21 20:23:00 -- 以下是引用有点甜在2014-8-21 19:56:00的发言：
你想问什么？
http://www.foxtable.com/help/topics/1458.htm 帮助里面只有一对一的 我想实现一对多 实例上传不了 在传传 [此贴子已经被作者于2014-8-21 20:23:13编辑过]
|
| -- 作者：Bin -- 发布时间：2014/8/22 8:30:00 -- 一对多,无法是这段代码复制多一遍,更改表名列名 Dim dr As DataRow
dr = DataTables("产品").Find("编号 = \'" & e.DataRow("产品编号") & "\'" ) If dr IsNot Nothing \'如果找到, 则设置各列内容 e.DataRow("品名")= dr("品名") e.DataRow("型号")= dr("型号") e.DataRow("规格")= dr("规格") End If |