请问关于Newtonsoft.Json，向现有的JSON串中追加数组的有关问题

请教关于Newtonsoft.Json，向现有的JSON串中追加数组的问题
本帖最后由 andywuchitao 于 2011-07-31 09:14:59 编辑 现在JSON串是这样的：{'created':['AAA'],'failed':['BBB']}
我要往created中追加一个数组字符串，结果要是这样：{'created':['AAA','CCC'],'failed':['BBB']}

下面是我写的代码：

Dim response As JObject = JObject.Parse("{'created':['AAA'],'failed':['BBB']}")

Dim Array As JArray = New JArray()

Array.Add(New JValue("CCC"))

response("created").AddAfterSelf(Array) '这里报错：Newtonsoft.Json.Linq.JProperty cannot have multiple values. 

试了很多种方法，都不行，给我感觉好像不能在中间追加一样。


第二个问题，如果原JSON串是这样，
{
    "desktopConfig": {
        "background": {
            "fontColor": "f9f9f9"
        },
        "appearance": {
            "color": "f9f9f9",
            "wallpaperPosition": "center"
        }
    }
}

要求结果生成是这样，就是在中间插入了一段：
{
    "desktopConfig": {
        "background": {
            "fontColor": "f9f9f9",
            "wallpaperPosition": "center"
        },
        "appearance": {
            "color": "f9f9f9",
            "wallpaperPosition": "center"
        }
    }
}
------解决方案--------------------
怎么没人理我呢
------解决方案--------------------
怎么还是没人呢
------解决方案--------------------
我的贴子，怎么连灌水的人都没一个呢
------解决方案--------------------
我也遇到类似的问题；