以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]截取字符串不为0开始的后面字符  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179415)
--  作者：jygyyl
--  发布时间：2022/8/22 17:39:00
--  [求助]截取字符串不为0开始的后面字符
001截取结果为1
010截取结果为10
110截取结果为110

求老师指点代码如何编写！谢谢！
--  作者：有点蓝
--  发布时间：2022/8/22 17:46:00
--  
dim s as string = "001"
dim s2 as string = val(s)
msgbox(s2)
--  作者：chnfo
--  发布时间：2022/8/22 22:24:00
--  

TrimStart是不是也可以？
--  作者：有点蓝
--  发布时间：2022/8/22 22:49:00
--  
可以
--  作者：jygyyl
--  发布时间：2022/8/23 18:50:00
--  回复：（有点蓝）dim s as string = "001"dim s2 as s...
Select Case e.DataCol.Name
    Case "楼院编码", "单元号", "户号"
        e.DataRow("GS999") = e.DataRow("楼院编码") + e.DataRow("单元号") + e.DataRow("户号")\'生成户编码
    Case "楼院编码", "单元号", "户号"
        Dim l As String = e.DataRow("楼院编码") 
        Dim d As String = e.DataRow("单元号") 
        Dim h As String = e.DataRow("户号") 
        If d = 0 Then
            e.DataRow("GS914") = Val(l) & "栋" & + Val(h) & "号" & \'生成栋号
        Else
            e.DataRow("GS914") = Val(l) & "号楼" & + d & "单元" & + Val(h) & "号" & \'生成楼户名称
        End If
End Select

帮忙修改一下上面代码，目标是当“单元号”列为0，表示平房或独栋别墅，房户名称为X栋X号，否则为单元楼，房户名称为X号楼x单元x号
--  作者：有点蓝
--  发布时间：2022/8/23 20:13:00
--  
Select Case e.DataCol.Name
    Case "楼院编码", "单元号", "户号"
        Dim l As integer = Val(e.DataRow("楼院编码") )
        Dim d As integer = val(e.DataRow("单元号") )
        Dim h As integer  = Val(e.DataRow("户号") )
        If d = 0 Then
            e.DataRow("GS914") = l & "栋" &  h & "号" \'生成栋号
        Else
            e.DataRow("GS914") = i & "号楼" &  d & "单元" &  h & "号"  \'生成楼户名称
        End If
End Select