- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6352)
-- 发布时间：2010/3/24 10:10:00
-- 求助代码
判别A表某行某列的值是否符B表某行某列的代码如何写？请狐友们帮助解决
-- 发布时间：2010/3/24 10:47:00
--
For Each dr as DataRow in DataTables("Zstb").DataRows
For Each dr1 as Datarow in DataTables("Zszy").Datarows
For Each dc as Datacol in DataTables("Zszy").Datacols
if dr(dc.name) = dr1(dc.name) then
Return
else
dr(dc.name) = "错误"
end if
next
next
上述代码正确吗？
-- 发布时间：2010/3/24 10:53:00
--
For Each dr as DataRow in DataTables("Zstb").DataRows
For Each dr1 as Datarow in DataTables("Zszy").Datarows
For Each dc as Datacol in DataTables("Zszy").Datacols
dr(dc.name) = "错误"
if dr(dc.name) = dr1(dc.name) then
dr(dc.name) = ""
end if
next
next
Next
-- 发布时间：2010/3/24 11:19:00
--
老六我是正确的不修改他，错误的提示？
-- 发布时间：2010/3/24 11:24:00
--
For Each dr as DataRow in DataTables("Zstb").DataRows
For Each dr1 as Datarow in DataTables("Zszy").Datarows
For Each dc as Datacol in DataTables("Zszy").Datacols
if dr(dc.name) = dr1(dc.name) then
exit for
else
dr(dc.name) = "错误"
end if
next
next
Next
上述代码是判别表ZSTB的某列的值等于表ZSZY某列的值时，执行下一循环，不等时在ZSTB的某列显示错误
-- 发布时间：2010/3/24 11:33:00
--
请帮助解决，我硬是想不出来道理。
-- 发布时间：2010/3/24 12:12:00
--
For Each dr as DataRow in DataTables("Zstb").DataRows
For Each dr1 as Datarow in DataTables("Zszy").Datarows
For Each dc as Datacol in DataTables("Zszy").Datacols
if dr(dc.name) <>dr1(dc.name) then
dr(dc.name) = "错误"
end if
next
next
Next
-- 发布时间：2010/3/24 12:16:00
--
yangming不行
-- 发布时间：2010/3/24 12:37:00
--
以下是引用lpxjw_zyl在2010-3-24 12:16:00的发言：
yangming不行
怎么不行，说清楚