Dim fa_s As String = "数据表名称1,列名称" Dim EL_分隔位置 As Integer = fa_s.IndexOf(",",0) output.show(EL_分隔位置) Dim EL_数据表 As String = fa_S.SubString(0,EL_分隔位置 - 1) Dim EL_数据列 As String = fa_S.SubString(EL_分隔位置 + 1) OUTPUT.SHOW(fa_S) OUTPUT.SHOW(EL_数据表) OUTPUT.SHOW(EL_数据列)