Question

ACCESS中 如何截取特定字符右边的数据

图中的表名:syj7字段名:行业类目想要通过VB将"->"符号最右边的数据 替换原数据求代码

Answer 1

  '使用instr函数截取字符串    Dim instrg, outstrg, x As String    Dim m, n, i As Integer    instrg = "农学院/2014/种子科学与工程" '需要拆分的字符串    m = Len(instrg) - Len(Replace(instrg, "/", "")) '分隔符/的数量        '利用循环函数拆分及合成新的字符串 "'农学院','2014','种子科学与工程'"    For n = 1 To m        i = InStr(instrg, "/")        x = Left(instrg, i - 1)        instrg = Mid(instrg, i + 1)        outstrg = outstrg & ",'" & x & "'"     Next        outstrg = Mid(outstrg & ",'" & instrg & "'", 2)    '使用sql语句插入表中记录    DoCmd.RunSQL "insert into 表 values(" & outstrg & ");"

追问

这贴我看见过 要是能看懂我也就不来问了~【捂脸】