主题：isnot 错误

老师您好！

     这段代码执行时出现错误信息：“isnot”运算符后缺少操作数。是数据问题还是代码问题？请指教！谢谢！

For Each nm As String In DataTables("ddpsb").GetValues("客户")
    Dim pr As DataRow = DataTables("ddpsb").find("客户='" & nm & "'")
 
   If pr IsNot Nothing Then
        Dim fr As DataRow = DataTables("产量计算表").find("客户='" & nm & "'")
        If fr Is Nothing Then
            fr=DataTables("产量计算表").AddNew()
           
            fr("客户") = pr("客户")
        End If
   End If
Next

看不出有什么问题，不过可以提高一下效率

For Each nm As String In DataTables("ddpsb").GetValues("客户")
        Dim fr As DataRow = DataTables("产量计算表").find("客户='" & nm & "'")
        If fr Is Nothing Then
            fr=DataTables("产量计算表").AddNew()
            fr("客户") = nm
        End If
Next

老师：我把您的代码复制了以后，运行时还是错误“isnot”运算符后缺少操作数”，我迷茫了。

For Each nm As String In DataTables("ddpsb").GetValues("客户")
   
        Dim fr As DataRow = DataTables("产量计算表").find("客户='" & nm & "'")
        If fr Is Nothing Then
            fr=DataTables("产量计算表").AddNew()
            fr("客户") = nm
        End If
 Next

 

关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。