我的项目使用的是SQL SERVER数据源，在设置外部表时，我选择的是“默认加载百分比 = 0”，在某一窗口，我设置加载代码想在使用过程中加载数据，未能成功。

代码如下：

Dim xmmckj As WinForm.ComboBox = e.Form.Controls("011-项目名称")
If xmmckj.Value <> Nothing Then
    Dim xmzhm As String = xmmckj.Value
    DataTables("C01_项目合同").LoadFilter = "项目组合名 = \'" & xmzhm & "\'"
    DataTables("C01_项目合同").Load
    Tables("C01_项目合同").Filter = "项目组合名 = \'" & xmzhm & "\'"
    e.Form.Close()
    Forms("30102-项目人员记录").Open()
Else
    MessageBox.Show("尚未选择项目!","错误操作!",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If