- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教老师！附件中的编码怎么在另一个表中找到，然后找到的标记红色！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85288)
-- 发布时间：2016/5/22 13:23:00
-- 请教老师！附件中的编码怎么在另一个表中找到，然后找到的标记红色！
请教老师！附件中的编码怎么在另一个表中找到，然后找到的标记红色！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2016/5/22 15:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2016/5/22 18:06:00
--
袍姐！有点不对。我的思路是如果我表B中判断列打钩后表示选中该编号标记红色，取消后恢复！我现在难点是在表B中找不到表A的值。
-- 发布时间：2016/5/22 20:19:00
--
单独做一个按钮执行代码
Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In DataTables("表B").datarows
Dim filter As String = "1=2"
For Each dc As DataCol In dt.DataCols
filter &= " or " & dc.name & "=\'" & dr("编号") & "\'"
Next
Dim fdr As DataRow = dt.find(filter)
dr("是否存在") = fdr IsNot Nothing
Next