Foxtable(狐表)用户栏目专家坐堂 → 無法在 System.Int32 和 System.String 上執行 '=' 作業。


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

主题:無法在 System.Int32 和 System.String 上執行 '=' 作業。

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


加好友 发短信
等级:一尾狐 帖子:423 积分:4231 威望:0 精华:0 注册:2009/5/16 21:42:00
無法在 System.Int32 和 System.String 上執行 '=' 作業。  发帖心情 Post By:2013/7/23 22:01:00 [只看该作者]

用那代码错误信息
Dim Filter As String

With e.Form.Controls("TextBox16")
    
If .text IsNot Nothing Then
        
Filter="單號 =' " & .text & "'"
    
End If

End With

If Filter > "" Then
    
Tables("收據").Filter = filter

End If

With Tables("收據") 
       .Position = .Rows.Count - 1
End With
出现错误信息?
NET Framework 版本:2.0.50727.5472
Foxtable 版本:2013.6.28.1
错误所在事件:
详细错误信息:
無法在 System.Int32 和 System.String 上執行 '=' 作業。


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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/7/24 8:03:00 [只看该作者]

Filter="單號 =' " & .text & "'"

單號是什么数据类型?

 


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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/7/24 8:43:00 [只看该作者]

呵呵,根据错误提示,你的单号应该是数值型,所以:

 

Filter="單號 =' " & .text & "'"

 

改为:

Filter="單號 = " & .text

 

建议看看:

 

http://www.foxtable.com/help/topics/1284.htm

 


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


加好友 发短信
等级:一尾狐 帖子:423 积分:4231 威望:0 精华:0 注册:2009/5/16 21:42:00
是整数型  发帖心情 Post By:2013/7/24 16:30:00 [只看该作者]

是整数型

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


加好友 发短信
等级:一尾狐 帖子:423 积分:4231 威望:0 精华:0 注册:2009/5/16 21:42:00
語法錯誤: '=' 運算子之後遺漏運算元。  发帖心情 Post By:2013/7/24 16:36:00 [只看该作者]

改代 Filter="單號= " & .text   後出现
語法錯誤: '=' 運算子之後遺漏運算元。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/7/24 17:26:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("TextBox16")
    If .Value IsNot Nothing Then
        Filter="單號 = " & .Value
    End If
End With
If Filter > "" Then
    Tables("收據").Filter = filter
End If
With Tables("收據")
    .Position = .Rows.Count - 1
End With

 

如果还是不行,做个例子发上来


 回到顶部