- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 输入与引用内容不同的跨表引用问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105967)
-- 发布时间：2017/8/30 7:47:00
-- 输入与引用内容不同的跨表引用问题
一遇到这种问题，有点犯糊涂。求版主帮写一下代码让我学习参考一下。
详见图示。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:跨表引用.table |
此主题相关图片如下：image 1.jpg
[此贴子已经被作者于2017/8/30 7:47:32编辑过]
-- 发布时间：2017/8/30 9:04:00
--
Dim wjh As Integer = 3
Dim fdr As DataRow = DataTables("xls").find("文件号 like \'%" & Format(wjh, "0000") & "%\'")
If fdr IsNot Nothing Then
msgbox(fdr("文件号"))
End If
-- 发布时间：2017/8/30 10:34:00
--
这个找法好象存在漏洞：如果同时存在不同年度或字号的31号文件情况时，如果录入“31”号文，结果就导致给出的最前面的被“认出”，后面的被忽略。似乎还应加一个类别或年度识别条件。
[此贴子已经被作者于2017/8/30 10:43:05编辑过]
-- 发布时间：2017/8/30 11:14:00
--
根据文件号无法精确查询，如果有多行符合你要怎么处理？你逻辑是什么？
-- 发布时间：2017/8/30 11:17:00
--
Dim wjh As Integer = 31
Dim nd As Integer = 2013
Dim lb As String = "委办"
Dim fdr As DataRow = DataTables("xls").find("文件号 like \'%" & Format(wjh, "0000") & "%\' and 文件号 like \'%" & nd & "%\' and 文件号 like \'%" & lb & "%\'")
If fdr IsNot Nothing Then
msgbox(fdr("文件号"))
End If