理解了, 谢谢!
' 判断是否是表达式
' output.show( "jpName:" & jp.name.ToString )
Dim bExpression As Boolean = False
If strFieldType <> "" Then
For Each xx As JProperty In arrFieldType(i)
'output.show( "xxName:" & xx.name.ToString )
If jp.name.ToString = xx.name.ToString Then
'output.show("xxValue:" & xx.value.ToString)
If xx.value.ToString = "expression" Then
bExpression = True
End If
Exit For
End If
Next
End If
'output.show(bExpression )
If bExpression Then ' 是表达式,则无单引号
strValue = strValue & "[" & jp.name.ToString & "] = " & jp.value.ToString.Replace("'","''") & ","
Else ' 不是,则为字符串, 有单引号
strValue = strValue & "[" & jp.name.ToString & "] = '" & jp.value.ToString.Replace("'","''") & "',"
End If