子串函数在Vb中不起作用？

Question

我试图屏蔽SSn并希望在标题标题上显示它。

lblSPTINTo.Caption = rsMM("SPTIN")
lblCPTINTo.Caption = rsMM("CPTIN")

我正在尝试使用substring函数来获取最后4个字符，但我无法使用它，因为它会抛出编译错误。

lblSPTINTo.Caption = rsMM("SPTIN").sutbstring(4,4)

Answer 1

将sutbstring替换为Substring。

但它不会那样工作，因为第一个参数是索引而Substring中的第二个参数是长度，如果你想要最后4个字符：

Dim last4 As String = rsMM("SPTIN")
If last4.Length > 4 Then last4 = last4.Substring(last4.Length - 4)