vb.net为datatables.net输出javascript数组/对象

时间:2015-11-12 19:22:24

标签: javascript jquery asp.net vb.net datatables

嘿所有我试图将我的数据返回到 datatable.net 表。我正在看他们给出的例子HERE。查看 Chrome调试控制台时,数据看起来就是这样:

0: "["111","1/30/2016 12:00:00 AM","10:00 a.m.-2:00 p.m. ","College ","5600 Road, Suite E3 ","37987","33.0090696,-81.21471799999999","theTown","TN","Hamilton ","","blank","1/14/2015 12:00:00 AM","Blank","10/22/2015 10:00:57 AM"],
    ["110","1/29/2016 12:00:00 AM","12:30 p.m.-7:00 p.m. ","College ","5600 Road, Suite E3 ","37045","31.0090696,-80.21471799999999","theTown","TN","Hamilton ","","blank","1/13/2015 12:00:00 AM","Blank","10/22/2015 10:00:57 AM"],
    ["109","1/28/2016 12:00:00 AM","12:30 p.m.-7:00 p.m. ","College ","5600 Road, Suite E3 ","37899","32.0090696,-87.21471799999999","theTown","TN","Hamilton ","","blank","1/12/2015 12:00:00 AM","Blank","10/22/2015 10:00:57 AM"],
    ["108","1/27/2016 12:00:00 AM","12:30 p.m.-7:00 p.m. ","College ","5600 Road, Suite E3 ","37411","22.0090696,-84.2240999999","theTown","TN","Hamilton ","","blank","1/11/2015 12:00:00 AM","Blank","10/22/2015 10:00:57 AM"],
    etc etc...."

enter image description here 我正在使用的JS是:

$.ajax({
   url: 'default.aspx?Data=viewData&cache=' + nocache,
   dataType: 'text',
   type: 'GET',
   success: function (dataSet) {
        var dataT = [dataSet];
        console.log(dataT);
        $('#databaseName').html('<strong>Data </strong> for <strong>FEB</strong> Form <strong>' + dbName + '</strong></h3>');
        $('#theDataTable').DataTable({
            data: dataT,
            columns: [
                 { title: "Venue ID" },
                 { title: "Venue Date" },
                 { title: "Venue Time" },
                 { title: "Venue Name" },
                 { title: "Venue Address" },
                 { title: "Venue Zip" },
                 { title: "Venue Address" },
                 { title: "Venue Lat/Lng" },
                 { title: "Venue City" },
                 { title: "Venue State" },
                 { title: "Venue County" },
                 { title: "Venue Advocate" },
                 { title: "in Spanish?" },
                 { title: "Last Updated" },
                 { title: "Updated By" }
            ]
        });
   }
});

页面上的输出如下所示:

enter image description here

我做错了什么,如何修复它以使数据正确排列?

服务器端代码:

Dim _tmpHtml As String = Nothing

theQuery = "SELECT * " & _
           "FROM markers " & _
           "ORDER BY venueID DESC;"

sqlQ = New SqlCommand(theQuery, conn)
reader = sqlQ.ExecuteReader

If reader.HasRows Then
   While reader.Read()
       _tmpHtml += "["
       _tmpHtml += """" & EscapeLikeValue(reader("venueID").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueEventDate").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueTime").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueName").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueAddress").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueZip").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueLatLong").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueCity").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueState").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueCounty").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueAdvocate").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("venueSpanish").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("lastUpdated").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("updatedBy").ToString()) & ""","
       _tmpHtml += """" & EscapeLikeValue(reader("syssrcloaddt").ToString()) & """"
       _tmpHtml += "],"
       records += 1
   End While

   _tmpHtml = _tmpHtml.Trim().Remove(_tmpHtml.Length - 1)

   reader.Close()
   sqlQ = Nothing
   conn.Close()
   conn = Nothing

   'Dim serializer As New JavaScriptSerializer()
   'Dim jsonString As String = serializer.Serialize(_tmpHtml)

   Return _tmpHtml
Else
   .......
End If

1 个答案:

答案 0 :(得分:0)

我不知道你在做什么。但这对你有帮助吗 你可以这样做 你能把你的json代码放在​​vb的2个文本框中吗? 并遍历该值并添加每个项目。

val1 = "textbox1.txt" & + &"loopvalue" & + &" textbox2.txt"