要求能返回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
加好友 
发短信
Post By：2016/11/29 11:54:00 [显示全部帖子]
此主题相关图片如下：错误.png
