主题：如何实现, 加载以菜单上的文本框内容为条件的做法.

你好,我要加载以菜单上的文本框内容为条件的表, 写了下面一段,提示错:

 

Dim Val As String = RibbonTabs("Common").Groups("filter1").Items("tooling1").Items("partcodefind").Text

val="'*" & val & "*'"
DataTables("表E").loadfilter=" [本厂编号] Like " & Val & ""
DataTables("表E").load

 

 

错误如下:

此主题相关图片如下：aaa.png