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