主题：当前行如何生成json?

根据现有对象生成JSON。

例如根据当前登录用户生成JSON，可在命令窗口执行：

Dim jo As JObject = JObject.FromObject(User)
Dim js As String = jo.ToString()
Output.Show(js)

我想把某表的当前行生成json,除了拼接,可以用上面的语句生成吗?该怎么做?