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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。