我的项目使用的是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