主题：帮找问题

项目确认后数据传送有问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

如果点表编号为空时出错，但已判断了啊

    For Each nm As DataRow In DataTables("盘点表").dataRows
        If nm("编号") > "" Then
            Dim dr As DataRow
            dr = DataTables("申请表").Find("编号='" & nm("编号") &  And 结果 = True "'")
                dr("状况") = nm("类型")
           
        End If
    Next

上述代码有什么错误？尤其是斜体部分

   表1：变更表  表2：点表   表3：附表  ，变更表与附表是关联关系，关联项上“处理结果”逻辑型，操作要求：点击变更表处理结果，同时选中了点表里的0001和0002，这个没问题，这时就要求将“附表”里的“变更类型”传到“点表”的相同编号的状态列里。请帮忙看下例子中哪里错误，多谢。

变更表 

号码	处理结果 （逻辑型）
K1

附表 

号码	编号	处理结果	变更类型
K1	0001		a
K1	0002		b

 点表

编号	状态
0001
0002

大家可能理解错了，没明白我的意思，我在8楼写的只是个例子，当要将附表中的变更类型传给点表时还要判断处理结果逻辑项有没有选中，也就是说即在判断编号相不相同又要判断逻辑项有没有选中，而且表中也不可以只有二行，许多行的。看下例子吧，在例子里面有错误2 个，1个是如果点表里有编号，则传过去的会重复，第二个是当把点表的编号内容去掉后报错。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table