以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49603)
--  作者：kmzb56
--  发布时间：2014/4/21 11:11:00
--  代码出错

Dim fil As String  =e.Table.Current("序号") 
Dim Filter As String = fil 
Tables("任务查询_Table1").Filter = Filter 

 应该的字符转换的问题，一下没找到。好像没用转换功能了，请问怎么转？
--  作者：Bin
--  发布时间：2014/4/21 11:13:00
--  

Dim Filter As String = "序号=\'" & e.Table.Current("序号")  & "\'" 
Tables("任务查询_Table1").Filter = Filter 
--  作者：有点甜
--  发布时间：2014/4/21 11:13:00
--  

应该这样写吧？

 

Dim fil As String  =e.Table.Current("序号") 
Dim Filter As String =  "序号 = \'" & fil  & "\'"
Tables("任务查询_Table1").Filter = Filter