以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  isnot 错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153437)
--  作者：朱女士
--  发布时间：2020/8/11 9:27:00
--  isnot 错误

老师您好！

     这段代码执行时出现错误信息：“isnot”运算符后缺少操作数。是数据问题还是代码问题？请指教！谢谢！
--  作者：朱女士
--  发布时间：2020/8/11 9:28:00
--  
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
--  作者：有点蓝
--  发布时间：2020/8/11 9:40:00
--  

看不出有什么问题，不过可以提高一下效率
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
--  作者：朱女士
--  发布时间：2020/8/11 10:22:00
--  
老师：我把您的代码复制了以后，运行时还是错误“isnot”运算符后缺少操作数”，我迷茫了。
--  作者：朱女士
--  发布时间：2020/8/11 10:23:00
--  

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

 
--  作者：有点蓝
--  发布时间：2020/8/11 10:25:00
--  
关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。