想实现项目编号D18-45-K18-01.1 得出一级编号是D18-45 二级编号是D18-45-K18,请帮我改下代码，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Str1 As String =r("项目编号")

If Str1.Contains("-")=True And Str1.IndexOf("-") <> Str1.LastIndexOf("-") And Str1.Contains(".") <> True Then

r("一级编号")=Str1.SubString(0,Str1.LastIndexOf("-"))

r("二级编号")=Str1.SubString(0,Str1.LastIndexOf("-"))

Else If Str1.Contains("-")=True And Str1.IndexOf("-") <> Str1.LastIndexOf("-") And Str1.Contains(".") = True Then

r("一级编号")=Str1.SubString(0,Str1.LastIndexOf("-"))

r("二级编号")=Str1.SubString(0,Str1.IndexOf("."))

Else If Str1.Contains("-")=True And Str1.IndexOf("-") = Str1.LastIndexOf("-") And Str1.Contains(".")<>True Then

r("一级编号")=r("项目编号")

r("二级编号")=r("项目编号")

Else If Str1.Contains("-")=True And Str1.IndexOf("-") = Str1.LastIndexOf("-") And Str1.Contains(".")=True Then

r("一级编号")=Str1.SubString(0,Str1.IndexOf("."))

r("二级编号")=Str1.SubString(0,Str1.IndexOf("."))

Else If Str1.Contains("-") <> True And Str1.Contains(".") <> True

r("一级编号")=r("项目编号")

r("二级编号")=r("项目编号")

End If

主题：想实现 项目编号D18-45-K18-01.1 得出一级编号是D18-45 二级编号是D18-45-K18,请帮我改下代码，谢谢