以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  通过菜单打开报表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23564)
--  作者：lfxxdt
--  发布时间：2012/9/12 16:02:00
--  通过菜单打开报表

Dim Val As String = RibbonTabs("生产报表").Groups("产量月报表-日报表").Items("工序").Items("StringToFind").Text
Forms("产量月报表").show()
DataTables("产量月报表").loadFilter =  "工序=  \'" & Val & "\'"
DataTables("产量月报表").load

以上代码运行不了，具体是哪里出了问题。
--  作者：lin_hailun
--  发布时间：2012/9/12 16:06:00
--  
什么叫运行不了？得不到结果吗？

在设置加载条件之前，先清空条件试试。

DataTables("产量月报表").loadFilter =  ""
--  作者：狐狸爸爸
--  发布时间：2012/9/12 16:11:00
--  

纸上不谈兵，做个简单的例子传上来说话吧
--  作者：lfxxdt
--  发布时间：2012/9/12 16:26:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目87.table
--  作者：lin_hailun
--  发布时间：2012/9/12 16:44:00
--  
Dim Val As String = RibbonTabs("生产报表").Groups("日报表").Items("工序").Text
Forms("日报表").show()
If val = "" Then
    DataTables("日报表").LoadFilter = ""
Else
    DataTables("日报表").loadFilter = "本工序=  \'" & Val & "\'"
End If
DataTables("日报表").load