- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这种查找代码怎么写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170019)
-- 发布时间：2021/7/9 14:35:00
-- 这种查找代码怎么写
窗口中有表A和表B（2个表列名完全相同），在表A中编码列输入几个编码，点按钮，把表B中能查到的所有数据一行一行的都引用到表A，查不到的只保留编码，其他列为空即可。
此主题相关图片如下：123333.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
-- 发布时间：2021/7/9 14:37:00
--
参考：http://www.foxtable.com/webhelp/topics/1533.htm
-- 发布时间：2021/7/10 8:49:00
--
我写了段代码 但执行有问题，帮看看
Dim i As Integer = 0
For Each dr As DataRow In DataTables("表A").Select("编码 is not null and 编码 <> \'\'")
For Each dr1 As DataRow In DataTables("表b").Select("编码=\'" & dr("编码") & "\'")
Dim dr2 As DataRow = DataTables("表a").DataRows(i)
i=i+1
Tables("表a").AddNew()
For Each dc As DataCol In DataTables("表b").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Next
Next
-- 发布时间：2021/7/10 8:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |
此主题相关图片如下：捕获11111.png
[此贴子已经被作者于2021/7/10 9:00:55编辑过]
-- 发布时间：2021/7/10 9:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3 (2).zip |
-- 发布时间：2021/7/10 16:53:00
--
都不需要按钮就可以实现
表A表事件里面写代码就行
select case e.datacol.name
case "编码"
dim a as datatrow = datatables("表B").find("[编码] = ‘“ & e.datarow("编码") & ”‘")
if a isnot nothing then
赋值代码
end if
end select