主题：[求助]代码错误提示 已解决！

请大大指点！

If e.DataCol.Name = "通用名称" And len(e.NewValue) >= 2 Then
    Dim dr As DataRow
    dr = DataTables("用药目录").Find("[通用名称] Like '"& e.NewValue &"'"  )
    If dr IsNot Nothing Then
        e.DataRow("医院有无") = "有"
    'Else
        'e.DataRow("医院有无") = "无"
    End If
End If

此主题相关图片如下：错误1.png