- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求个代码. (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52804)
-- 发布时间：2014/6/23 15:36:00
-- 求个代码.
求个代码:
表A新增时 ,从表B中的名称列找出跟表A列相同的数据填入:
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:例子.table |
填入的效果同截图 一样的效果:
此主题相关图片如下：qq图片20140623153614.jpg
-- 发布时间：2014/6/23 15:46:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:例子.table |
-- 发布时间：2014/6/23 15:57:00
--
For Each r As Row In Tables("表B").Rows
Dim dr As DataRow = DataTables("表A").Find(r("名称") & " is null")
If dr Is Nothing Then
dr = DataTables("表A").AddNew
End If
dr(r("名称"))=r("取值列")
Next
这样也行 又学了一招