- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 同一段代码执行在同样情况下，为什么得到两个结果呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159909)
-- 发布时间：2021/1/13 12:03:00
-- 同一段代码执行在同样情况下，为什么得到两个结果呢？
请见图。一段代码在下面test0103中使用，结果完全正确。但在我设计的软件操作，却得不到正确结果，只得到查询出来的第一行数据。百思不得其解！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test0103.foxdb |
此主题相关图片如下：0113.jpg
-- 发布时间：2021/1/13 13:59:00
--
For Each nm As String In nms
cr(nm) = dr(nm)
Next
一般是有其它代码影响了，把和这个表有关的所有代码都注释掉测试
-- 发布时间：2021/1/13 14:23:00
--
这个窗口的代码，就这么一段。修改成dA/db之类的，一样如此。奇怪！
-- 发布时间：2021/1/13 14:26:00
--
把和这个表有关的所有代码都注释掉测试，包括表事件，全局表事件，项目事件等等
-- 发布时间：2021/1/13 14:27:00
--
蓝版说的正确。确实在表事件中存在如下代码：
\'Select Case e.DataCol.name
\' Case "路径文件名","卷盒档号","折算A4页数量","数据来源","全宗号","年度","备注"
\' Dim dr As DataRow = DataTables("找回硬盘文件PDF21129").Find("卷盒档号 = \'" & e.DataRow("卷盒档号") & "\'")
\' If dr IsNot Nothing Then
\' e.DataRow("路径文件名") = dr("路径文件名")
\' dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
\' End If
\' End Select