以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 取值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164923)
--  作者：sanny
--  发布时间：2021/5/9 1:02:00
--  [求助] 取值
老师，

以下代码可实现如 partno 是 1.1. CH_000222_A, s的值就是 CH_000222_A ,  partno 是 1. CH_000222_A, s的值就是 CH_000222_A.

如何将当 partno 是 1.1. CH_000222_. 时，使 s的值是 CH_000222_.   partno 是 1. CH_000222_A, s的值就是 CH_000222_.



Dim s As String = e.Row("PartNo")
Dim idx As Integer = s.LastIndexOf(".")
If idx > -1 Then
    s = s.SubString(idx+1)
End If
--  作者：有点蓝
--  发布时间：2021/5/9 21:21:00
--  
有矛盾呀，红色到底哪个值正确的？如果都有可能，无法处理

以下代码可实现如 partno 是 1.1. CH_000222_A, s的值就是 CH_000222_A ,  partno 是 1. CH_000222_A, s的值就是 CH_000222_A.

如何将当 partno 是 1.1. CH_000222_. 时，使 s的值是 CH_000222_.   partno 是 1. CH_000222_A, s的值就是 CH_000222_.
--  作者：sanny
--  发布时间：2021/5/9 22:34:00
--  
老师

满足条件是时要 partno 是 1.1. CH_000222_A, s的值就是 CH_000222_A ， 不满足是需执行另外一个代码。
--  作者：有点蓝
--  发布时间：2021/5/9 22:45:00
--  
Dim s As String = e.Row("PartNo")
if 不满足条件 then
s = s.trim(".")
end if
Dim idx As Integer = s.LastIndexOf(".")
If idx > -1 Then
    s = s.SubString(idx+1)
End If