向量场变换问题

我想将向量场 r sin(\[Theta])Overscript[\[CurlyPhi], ^] 从球坐标 {r,\[Theta],\[CurlyPhi]} 转化为直角坐标 {x,y,z}，并且保持场点仍以球坐标系表达，而场量以直角坐标系表达：
我可以分两步编程实现，代码如下：
In[11]:=
TransformedField[
"Cartesian" ->
"Spherical", #, {x, y, z} -> {r, \[Theta], \[CurlyPhi]}] & /@
TransformedField[
"Spherical" -> "Cartesian", {0, 0,
r Sin[\[Theta]]}, {r, \[Theta], \[CurlyPhi]} -> {x, y, z}]
Out[11]= {-r Sin[\[Theta]] Sin[\[CurlyPhi]],
r Cos[\[CurlyPhi]] Sin[\[Theta]], 0}
这种方式比较繁琐，TransformedField函数中可以通过某种设置一步完成吗？