Foxtable(狐表)用户栏目专家坐堂 → 代码出错


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

主题:代码出错

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


加好友 发短信
等级:小狐 帖子:324 积分:3265 威望:0 精华:0 注册:2012/6/19 16:20:00
代码出错  发帖心情 Post By:2016/6/22 16:25:00 [只看该作者]

在一个查询窗口中有组合框和 复选框两个控件。查询按钮的代码哪里出现了问题。求指点,谢谢

显示错误信息

.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2016.4.17.1
错误所在事件:窗口,水井管理系统,Button1,Click
详细错误信息:
未找到类型“CheckBox”的公共成员“Value”。

Dim Filter As String
With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名= '" & .Value & "'"
    End If
End With
With e.Form.Controls("已付款")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "已付款= '" & .Value & "'"
    End If
End With

If Filter > "" Then
   
    Tables("明细").Filter = Filter


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


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

Dim Filter As String = "1=1"
With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = Filter &" And 姓名= '" & .Value & "'"
    End If
End With

Filter = Filter & " and 已付款 = " & e.Form.Controls("已付款").Checked

Tables("明细").Filter = Filter


 回到顶部