当前代码如下：

Dim Products As List(Of String)
Products = DataTables("内部函数").GetValues("函数名")
For Each Product As String In Products
    Output.Show(Product)   ‘输入的结果只有一个 “对比表”
    Dim br As DataRow=DataTables("内部函数").Find("函数名= \'" & Product & "\'")
    If br IsNot Nothing  Then
        Functions.Remove(Product)
        Functions.Add(Product,br("代码"))
        Functions.Complie()
        MessageBox.Show("1")
    End If
Next

编译错误：未声明“测试”，它可能因其保护级别而不可访问

错误代码：测试

2021.5.29版  怎么解决这个提示呢？

如果把红色划线部分取消之后，不提示上述编译错误，但是会提示已经有相同名称的函数存在，想实现如果有相同的就先移除，没有就新增！