Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共9 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:求助代码

1楼
lpxjw_zyl 发表于:2010/3/24 10:10:00
判别A表某行某列的值是否符B表某行某列的代码如何写?请狐友们帮助解决
2楼
lpxjw_zyl 发表于: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

上述代码正确吗?
3楼
狐狸爸爸 发表于: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
4楼
lpxjw_zyl 发表于:2010/3/24 11:19:00
老六我是正确的不修改他,错误的提示?
5楼
lpxjw_zyl 发表于: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的某列显示错误
6楼
lpxjw_zyl 发表于:2010/3/24 11:33:00

请帮助解决,我硬是想不出来道理。

7楼
yangming 发表于: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

8楼
lpxjw_zyl 发表于:2010/3/24 12:16:00
图片点击可在新窗口打开查看
yangming不行
9楼
yangming 发表于:2010/3/24 12:37:00
以下是引用lpxjw_zyl在2010-3-24 12:16:00的发言:
图片点击可在新窗口打开查看
yangming不行

怎么不行,说清楚

共9 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.