vb.net 二级联动 datatable生成json数据
来源：互联网 发布：网络女主播会真心的吗 编辑：程序博客网 时间：2024/05/17 23:36
js部分function GetAccNTData() { $("#drpNaturalCode").empty(); var strId = $("#DrpAccountGroup").attr("value"); if (strId != ""&& typeof(strId)!="undefined" ) { $.get("../Handler/GetAccNTDataInfo.ashx", { GroupId: escape(strId), date: new Date().getTime() }, function (result) { $("#drpNaturalCode").append($("<option></option>").val("0").html("==请选择科目==")); var datas = eval(result); for (var j = 0; j < datas.length; j++) { $("#drpNaturalCode").append($("<option></option>").val(datas[j].NaturalCode).html(datas[j].NaturalCode + "--" + datas[j].ACCNT_NAME)); } }) }}
' 一般处理文件
Dim groupName As String = HttpUtility.UrlDecode(context.Request.QueryString("GroupId").ToString()) Dim connectionString As String = ConfigurationManager.ConnectionStrings("ConnectionString_EIS").ConnectionString Dim strSQL As String = "SELECT NaturalCode, ACCNT_NAME FROM tbl_Account WHERE AccountGroup='" & groupName.Trim() & "'" ' Dim strSQL As String = "SELECT NaturalCode, ACCNT_NAME FROM tbl_Account" Dim da As SqlDataAdapter = New SqlDataAdapter(strSQL, connectionString) da.Fill(ds) Dim ti As TreeItem = New TreeItem() Dim jsonString As String = ti.CreateJsonParameters(ds.Tables(0)) context.Response.Write(jsonString)
'方法
Public Function CreateJsonParameters(ByVal dt As DataTable) As String Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder() If dt IsNot Nothing Then sb.Append("[") For i = 0 To dt.Rows.Count - 1 sb.Append("{") For j = 0 To dt.Columns.Count - 1 If j < dt.Columns.Count - 1 Then sb.Append(Chr(34) & dt.Columns(j).ColumnName.ToString() & Chr(34) & ":" & Chr(34) & dt.Rows(i)(j).ToString() & Chr(34) & ",") ElseIf (j = dt.Columns.Count - 1) Then sb.Append(Chr(34) & dt.Columns(j).ColumnName.ToString() & Chr(34) & ":" & Chr(34) & dt.Rows(i)(j).ToString() & Chr(34)) End If Next j If i = dt.Rows.Count - 1 Then sb.Append("}") Else sb.Append("},") End If Next i End If sb.Append("]") Return sb.ToString() End Function
