Foxtable(狐表)用户栏目专家坐堂 → 分组框做了两个查询问题


  共有1820人关注过本帖树形打印复制链接

主题:分组框做了两个查询问题

帅哥哟,离线,有人找我吗?
zch1104
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:58 积分:496 威望:0 精华:0 注册:2016/4/11 18:05:00
分组框做了两个查询问题  发帖心情 Post By:2016/8/15 19:13:00 [只看该作者]

我用分组框做了两个查询内容分别不一样的,(注这代码在用Table表中应用没问题?)如下:

代码一

Dim Filter As String
With e.Form.Controls("采购单位")
    If .Value IsNot Nothing Then
        Filter = "采购单位= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("销售出库信息").Filter = Filter
End If

 

代码二

Dim Filter As String
With e.Form.Controls("产品编号")
    If .Value IsNot Nothing Then
        Filter = "产品编号= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("销售出库明细").Filter = Filter
End If

                      

 

如有问题请指教,谢谢!

 

.NET Framework 版本:2.0.50727.3643
Foxtable 版本:2016.6.26.1
错误所在事件:窗口,销售出库明细,查询1,Click
详细错误信息:
未设置对象变量或 With 块变量。


此主题相关图片如下:截图00.png
按此在新窗口浏览图片

此主题相关图片如下:截图01.png
按此在新窗口浏览图片

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2016/8/15 19:34:00 [只看该作者]

第二个查询窗口的按钮名称和代码不一致

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/15 20:41:00 [只看该作者]

红色的名称写错了,去看一下控件的名称属性。

 

Dim Filter As String
With e.Form.Controls("产品编号")
    If .Value IsNot Nothing Then
        Filter = "产品编号= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("销售出库明细").Filter = Filter
End If


 回到顶部