主题：[求助] 关于二维码问题

控制缩放参数，注意，你的二维码内容不要太多，太多也不行。

 

http://www.foxtable.com/webhelp/scr/2090.htm

 

 

如果加入以下命令中的红色部分内容，执行命令就会报错。是什么原因？

 

 

 

For Each r As Row In Tables("电表数据汇总表").Rows
    Dim dr As DataRow = DataTables("二维码清单表").Find("二维码编号 = '" & r("二维码编号") & "' ")
    If dr IsNot Nothing Then
        dr("二维码使用") = "二维码已被使用"
        dr("一级地理区域") = r("一级地理区域")
        dr("二级地理区域") = r("二级地理区域")
       dr("电表设备号") = r("电表设备号")
Else
        dr("二维码使用") = "二维码未被使用"
        dr("一级地理区域") = "未分配使用区域"
        dr("二级地理区域") = "未分配使用区域"
        dr("电表设备号") = Nothing
End  If
Next

此主题相关图片如下：360截图20170711141342789.jpg

不是要增加一条记录；而是在【电表数据汇总表】中查找是否有跟【二维码清单表】相同的【二维码编号】、如果有就填写【电表数据汇总表】中对应的内容，如果没有找到的就填写另外的指定内容

另外的指定内容指的是什么？既然都没有行，对空对象操作肯定有问题啦

 

 

滤遍【电表数据汇总表】所有数据、和【二维码清单表】中的【二维码编号】进行对比

For Each r As Row In Tables("电表数据汇总表").Rows
    Dim dr As DataRow = DataTables("二维码清单表").Find("二维码编号 = '" & r("二维码编号") & "' ")

如果存在相同的【二维码编号】

    If dr IsNot Nothing Then

那么、将【电表数据汇总表】中对应列的内容填写到【二维码清单表】的列中
        dr("二维码使用") = "二维码已被使用"
        dr("一级地理区域") = r("一级地理区域")
        dr("二级地理区域") = r("二级地理区域")
       dr("电表设备号") = r("电表设备号")

否则
Else

在【二维码清单表】的 如下列中填入指定内容
        dr("二维码使用") = "二维码未被使用"
        dr("一级地理区域") = "未分配使用区域"
        dr("二级地理区域") = "未分配使用区域"
        dr("电表设备号") = Nothing
End  If
Next

 

查询不到说明【二维码清单表】根本就不存在这一行（dr），填入到哪里呀！？

For Each r As Row In Tables("电表数据汇总表").Rows
    Dim dr As DataRow = DataTables("二维码清单表").Find("二维码编号 = '" & r("二维码编号") & "' ")
    If dr IsNot Nothing Then
        dr("二维码使用") = "二维码已被使用"
        dr("一级地理区域") = r("一级地理区域")
        dr("二级地理区域") = r("二级地理区域")
        dr("电表设备号") = r("电表设备号")
    Else
        r("二维码使用") = "二维码未被使用"
        r("一级地理区域") = "未分配使用区域"
        r("二级地理区域") = "未分配使用区域"
        r("电表设备号") = Nothing
    End  If
Next

 

此主题相关图片如下：360截图20170712100147099.jpg