Dim json As String = "{'等于':'=','不等于':'<>','大于':'>','小于':'<','大于等于':'>=','小于等于':'<=','包含':'like','不包含':'not like','空值':'null','非空值':'not null'}" Dim jo As JObject = JObject.Parse(json) Dim tb As Table = Tables(e.Form.Name & "_Table1")
For i As Integer = 0 To jo.count - 1 Dim nr As Row = tb.AddNew nr("name") = jo(i).ToString nr("fh") = jo(i).ToString Next