以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样强制换行，并删除换行后每行最右边字符？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153716)
--  作者：yfy13338431925
--  发布时间：2020/8/20 13:21:00
--  怎样强制换行，并删除换行后每行最右边字符？
蓝老师，籍贯列一个单元格内容格式是：江西省九江市

怎样在一个单元格内格式变成
江西
九江
我这样写问题是什么？
If e.Node.Level = 1 Then 
    Dim tr As Row = Tables("人事档案基础信息").Current
    Dim dr As DataRow = e.Node.DataRow 
    tr("籍贯") = dr("省市").SubString(0, Length - 1) & Chr(10) & dr("县市").SubString(0, Length - 1)
    e.Form.DropDownBox.Value = tr("籍贯")
    e.Form.DropDownBox.CloseDropdown()
End If
帮我修改下。谢谢
--  作者：有点蓝
--  发布时间：2020/8/20 13:37:00
--  
dim s as string = "江西省九江市"
msgbox(s.substring(0,2))
msgbox(s.substring(3,2))