显示双引号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

"{" & """wareCode""" & ":" & """dr("库位类别")"""

想显示的结果是{“wareCode”:"30"

dr("库位类别")=30

蓝色的写法是不是不对啊。

"{" & """wareCode"":"" & dr("库位类别") & """"

如果字符串中本身包括双引号，那么用每两个双引号表示一个双引号。
将下面的代码复制到命令窗口执行：

Dim s1 As String = "利马是有名的""无雨之都"""
Output.Show(s1)

你会发现s1的值为：利马是有名的"无雨之都"

"利马是有名的""无雨之都"""

""----这个为一对

是这样吧。那下面的是不是也是对的。

"""wareCode"""

"""dr("库位类别")"""

如果要连接变量，要这样写才对

Dim str As String = "aaa"
msgbox("""" & str & """")

要求能返回json的格式。那么在循环行的时候，首尾的[]怎么弄？红色的对吗?

Public Function GetState1(ByVal ddh As String, ByVal ddhh As String, ByVal wlbm As String, ByVal lhbbh As String, ByVal rjbb As String) As String

Dim cnStr As String = "Data Source=(local);Initial Catalog=songjiang;Integrated Security=False;User ID=sa;Password=bdcom103liujy;"

Dim cn As New SqlClient.SqlConnection(cnStr)

cn.Open()

Dim adapter As New SqlClient.SqlDataAdapter("se lect * from [可用数量表] where 订单号 = '" & ddh & "' and 订单行号 = '" & ddhh & "' and 物料编码 = '" & wlbm & "' and 两化表编号 = '" & lhbbh & "' and 软件版本 = '" & rjbb & "'", cn)

Dim dt As New DataTable

adapter.Fill(dt)

cn.Close()

Dim state As String = ""

For Each dr As DataRow In dt.Rows

state &= "[{" & """wareCode""" & ":" & """" & dr("库位类别") & """" & "," & """rootWorks""" & ":" & "[{" & """workNo""" & ":" & """" & dr("生产订单号码") & """" & "," & """workLineNo""" & ":" & """" & dr("工单行号") & """" & "," & """orderNo""" & ":" & """" & dr("订单号") & """" & "," & """orderLineNo""" & ":" & """" & dr("订单行号") & """" & "," & """productNo""" & ":" & """" & dr("物料编码") & """" & "," & """swVersion""" & ":" & """" & dr("软件版本") & """" & "," & """oemSpecialNo""" & ":" & """" & dr("两化表编号") & """" & "," & """count""" & ":" & """" & dr("数量") & """" & "}]" & vbCrLf

Return state

End Function

自己弹出看看msgbox(state)，没看懂数据之间的关系

返回的xml。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:state.txt

json.cn

把xml的内容复制进去。提示

此主题相关图片如下：错误.png

没看懂数据之间的关系，最终要什么效果

此主题相关图片如下：效果1.png

主题：显示双引号