- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- sqlselect不限制条件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68922)
-- 发布时间：2015/5/27 14:44:00
-- sqlselect不限制条件
SQLSelect(Filter,Top,Sort)
For Each dr As DataRow In dt1.SQLSelect(此处不写查询条件，即所有记录，应该怎么写？)
-- 发布时间：2015/5/27 14:45:00
--
SQLSelect("")
-- 发布时间：2015/5/27 15:03:00
--
见截图， 第一列中的每个单元格内容分别去第二列所有单元格中遍历查找，如果找到则在第三列中写上文本“ 有重复”该 功能应该如何实现？
Dim dt1 As DataTable = DataTables("表A")
For Each dr As DataRow In dt1.SQLSelect("")
next
此主题相关图片如下：1111.jpg
-- 发布时间：2015/5/27 15:09:00
--
for each dr as datarow in datatables("表A").datarows
dim drr as datarow = datatables("表A").find("第二列=\'" & dr("第一列") & "\'")
if drr isnot nothing then
dr("第三列")="有重复"
end if
next
-- 发布时间：2015/5/27 15:10:00
--
Dim dt1 As DataTable = DataTables("表B")
For Each dr As DataRow In dt1.Select("", "_Sortkey")
For Each cdr As DataRow In dt1.Select("第一列 = \'" & dr("第二列") & "\'")
cdr("第三列") = "有重复"
dr("第三列") = "有重复"
Next
Next
-- 发布时间：2015/5/27 15:56:00
--
谢谢两位老师，问题搞定