table.html的代码
<!DOCTYPE html>
<html lang='en'>
<head>
<meta charset="UTF-8">
<title>测试</title>
<script src="easyui/jquery.min.js"></script>
<script src="easyui/jquery.easyui.min.js"></script>
<script src="easyui/locale/easyui-lang-zh_cn.js"></script>
<link rel="stylesheet" href="easyui/themes/default/easyui.css">
<link rel="stylesheet" href="easyui/themes/icon.css">
</head>
<body>
<div id="t1"></div>
<div id="tb" style="padding: 6px">
请输入产品ID:<select id="sl" ></select>
</div>
<script src="table.js"></script>
</body>
</html>
table.js代码如下
$(function(){
$('#t1').datagrid({
title:'测试',
iconCls:'icon-search',
width:1250,
height:598,
collapsible:true,
columns:[[
{field:'OPERATIONDATE',title:'运营日'},
{field:'产品ID',title:'产品编号'},
{field:'客户ID',title:'客户编号'},
{field:'日期',title:'订单日期'}
{field:'数量',title:'数量'}
]],
url:'getdata',
pagination:true,
toolbar:'#tb',
});
$('#sl').combobox({
width:110,
icons:[{
iconCls:'icon-search',
handler:function(e){
$('#t1').datagrid('load',{
v:$(e.data.traget).combobox(getValue)
})
}
}]
})
})
对这个视频的学习http://www.365yg.com/i6566124846986560013/#mid=57384552246,这段代码有什么问题,我点击那个查询的图标没有效果?
httprequest事件的代码

Select Case e.path
Case "getdata"
Dim ft As String = e.Values("v")
If ft <> "" Then ft = "产品ID = '" & ft & ""
With DataTables("FLI")
.LoadFilter = ft
.LoadTop = e.Values("rows")
.LoadPage = e.Values("page")
.load
End With
Dim ja As new JArray
For Each r As Row In Tables("FLI")
ja.Add(new JObject)
ja(r.Index)("产品ID") = ( r("产品ID") .ToString
ja(r.Index)("客户ID") = r("客户ID").ToString
ja(r.Index)("日期") = r("日期").ToString
ja(r.Index)("数量") = r("数量").ToString
Next
Dim jo As new JObject
jo("total") = DataTables("FLI").SQLCompute("count(*)",ft).ToString
jo("rows") = ja
Dim json As String = jo.ToString
'Dim json As String = CompressJson(ja)
e.WriteString(json)
End Select
[此贴子已经被作者于2018/9/1 21:55:18编辑过]