- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 显示双引号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93447)
-- 发布时间：2016/11/29 11:54:00
-- 显示双引号
"{" & """wareCode""" & ":" & """dr("库位类别")"""
想显示的结果是{“wareCode”:"30"
dr("库位类别")=30
蓝色的写法是不是不对啊。
-- 发布时间：2016/11/29 12:08:00
--
"{" & """wareCode"":"" & dr("库位类别") & """" |
-- 发布时间：2016/11/29 12:27:00
--
如果字符串中本身包括双引号，那么用每两个双引号表示一个双引号。
将下面的代码复制到命令窗口执行：
Dim s1 As String =
"利马是有名的""无雨之都"""
Output.Show(s1)
你会发现s1的值为：利马是有名的"无雨之都"
"利马是有名的""无雨之都"""
""----这个为一对
""----这个为一对
""----这个为一对
是这样吧。那下面的是不是也是对的。
"""wareCode"""
"""dr("库位类别")"""
-- 发布时间：2016/11/29 14:09:00
--
如果要连接变量，要这样写才对
Dim str As String = "aaa"
msgbox("""" & str & """")
-- 发布时间：2016/11/29 15:54:00
--
要求能返回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
Next
Return state
End Function
-- 发布时间：2016/11/29 16:51:00
--
自己弹出看看msgbox(state)，没看懂数据之间的关系
-- 发布时间：2016/11/29 16:55:00
--
帖子不能沉了
-- 发布时间：2016/11/29 16:59:00
--
返回的xml。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:state.txt |
json.cn
把xml的内容复制进去。提示
此主题相关图片如下：错误.png
-- 发布时间：2016/11/29 17:10:00
--
没看懂数据之间的关系，最终要什么效果
-- 发布时间：2016/11/29 17:21:00
--
此主题相关图片如下：效果1.png