| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]筛选求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137007) |
| -- 作者：湛江智 -- 发布时间：2019/6/26 12:33:00 -- [求助]筛选求助 窗口副本表1中的表A第一列是1990-1234八位数中间小短号，行切换时，筛选出窗口副本表2中第二列值19901234.x所有行 也就是筛选出第二列前面八位数，等于第一列去掉小短号后八位数且带小数点的行
|
| -- 作者：有点甜 -- 发布时间：2019/6/26 12:41:00 -- 去掉横线，如 "".replace("-", "")
筛选条件，如 "convert(第二列, \'System.String\') like \'" & 变量 & ".%\'"
|
| -- 作者：湛江智 -- 发布时间：2019/6/26 14:29:00 -- 回复：（有点甜）去掉横线，如 "".replace("-",... 报错，怎么修改求助 Dim t As Table = Tables("窗口1_Table2") With Tables("窗口1_Table2") If .Current Is Nothing Then t.Filter = "False" Else Dim s = DataTables("表A").GetComboListString("第二列", "第二列 = \'" & .Current("第一列").replace("-", "\',\'") & "\'").replace("|", "\',\'") t.Filter = "convert(第二列, \'System.String\') like \'" & s & ".%\'" End If End With
|
| -- 作者：湛江智 -- 发布时间：2019/6/26 14:50:00 -- 坛主辛苦出手了，手机上传例子失败 [此贴子已经被作者于2019/6/26 14:58:07编辑过]
|
| -- 作者：有点甜 -- 发布时间：2019/6/26 14:59:00 -- Dim t As Table = Tables("窗口1_Table2")
With Tables("窗口1_Table2")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "convert(第二列, \'System.String\') like \'" & .Current("第一列").replace("-", "") & ".%\'"
End If
End With
|
| -- 作者：湛江智 -- 发布时间：2019/6/26 15:21:00 -- 回复：（有点甜）Dim t As Table = Tables("窗口1_Tab... 可以了 [此贴子已经被作者于2019/6/26 15:41:35编辑过]
|