MoveNext Loop End If If Len(result) > Len(sep) Then result = Left(result, Len(result) - Len(sep)) End If CombineFields = result End Function Visual Basic Copy该自定义函数名称为CombineFields,使用方法为:SELECT CombineFields("fruits", "name", ",") AS result; -- 输出结果:apple,banana...