以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  无法在 System.Int32 和 System.String 上执行“=”操作。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113448)

--  作者:chengjingliang
--  发布时间:2018/1/16 11:25:00
--  无法在 System.Int32 和 System.String 上执行“=”操作。
无法在 System.Int32 和 System.String 上执行“=”操作。如何调整?
--  作者:有点甜
--  发布时间:2018/1/16 11:29:00
--  

 贴出你写的代码。

 

 通常是因为这样的代码,如

 

Tables("表A").filter = "第三列 = \'abc\'"  \'其中第三列是整数列


--  作者:chengjingliang
--  发布时间:2018/1/16 11:38:00
--  
如何调整呢


--  作者:有点甜
--  发布时间:2018/1/16 11:41:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1485.htm

 


--  作者:chengjingliang
--  发布时间:2018/2/26 21:30:00
--  
.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2017.12.31.1
错误所在事件:
详细错误信息:
无法在 System.Int32 和 System.String 上执行“=”操作。

代码如下:

\'筛选树
Tables("统计").OpenFilterTree("项目名称|统计日期")

\'配合完成明细跨表引用项目名称等列
Select Case e.DataCol.Name 
    Case "项目名称","施工单位","合同金额","税率","清单合计","统计月"
         Dim Filter As String = "[统计ID] = \'" & e.DataRow("统计ID") & "\' and [项目ID] = \'" & e.DataRow("项目ID") & "\'"
        Dim drs As List(Of DataRow) = DataTables("完成明细").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select

--  作者:有点蓝
--  发布时间:2018/2/26 22:08:00
--  
ID如果是整数,去掉条件的单引号,如

Dim Filter As String = "[统计ID] = 123"

字符列则加上单引号

Dim Filter As String = "[统计ID] = \'123\'"

--  作者:chengjingliang
--  发布时间:2018/2/26 22:43:00
--  
好像还是不行,在统计表筛选树选用不同项目时候,还是出现错误提示

\'筛选树
Tables("统计").OpenFilterTree("项目名称|统计日期")

\'配合完成明细跨表引用项目名称等列
Select Case e.DataCol.Name 
    Case "项目名称","施工单位","合同金额","税率","清单合计","统计月"
         Dim Filter As String = "[统计ID] =" & e.DataRow("统计ID") & " and [项目ID] = " & e.DataRow("项目ID") & "\'"
        Dim drs As List(Of DataRow) = DataTables("完成明细").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:成本企划跟踪核算系统.rar



--  作者:有点蓝
--  发布时间:2018/2/26 23:21:00
--  
Dim Filter As String = "[统计ID] =" & e.DataRow("统计ID") & " and [项目ID] = " & e.DataRow("项目ID")