Vb.net：调用与原型不匹配的函数通过编译器检查

Question

我遇到了一些想要解释的事情。 我有一个函数 InitializeValues() ，它设置一个组合框，并将数据源设置为数据表。使用不带参数的公共方法 GetFileSourceData 从 DGVMain_Functions 类的实例检索数据表。
问题是对 GetFileSourceData(MyConnectionString) 的调用实际上会编译并运行。当返回数据表并尝试设置为 cbo 的数据源时，会发生运行时错误。正常调用 GetFileSourceData() 工作正常。 我曾向另一位开发人员询问过此事，他认为我有一些过时的参考，所以我清理了项目，然后删除了调试文件夹中的所有内容，然后重新构建，但它仍然具有相同的行为。

我的问题是，为什么编译器接受这个而不抛出语法错误，而且为什么它甚至达到了你可以实际单步进入这个不应该存在的函数的地步，并让它在返回时失败？

编辑：将 Option Strict On 确实会使编译器捕获这一点。 “Option Strict On 不允许从‘String’到‘Integer’的隐式转换。但这仍然不是我想看到的错误。我想知道为什么它不显示类似“没有这样的重载/定义”的内容该功能存在”。

错误是这样的：

创建表单时出错。有关详细信息，请参阅 Exception.InnerException。 错误是：错误：错误：从字符串“用户 id = XXXX；数据源 = XXXX”到类型“整数”的转换无效。Microsoft.VisualBasicFileProcessor。 "InnerException = {"输入字符串的格式不正确。"}"

Private Sub InitializeValues()
  cboFileSource.DisplayMember = "filesource"
  cboFileSource.ValueMember = "filesource"
  'first call works fine since it matches
  cboFileSource.DataSource = DgvMain_functs.GetFileSourceData()
  'below is the call that gets through the complier and actually runs, fails on return
  cboFileSource.DataSource = DgvMain_functs.GetFileSourceData(MyConnectionString)         
End Sub

Public Function GetFileSourceData() As DataTable
  Try
    Dim dt As DataTable
    Dim strSQL As String = "select distinct filesource from FileUpload_FolderPath"
    dt = SqlHelper.ExecuteDataset(MyConnectionString, CommandType.Text, strSQL).Tables(0)
    Return dt
  Catch ex As Exception
    Throw New Exception("Error in DGVMain_Functions: " & ex.Message & ex.Source)
  End Try
End Function

Answer 1

正如您在评论中所暗示的那样，Option Explicit On 肯定可以解决这个问题。