js模拟点击事件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

list.html，js脚本改改

<script
				type="text/javascript">

        function
				dd(val) {

            var htm = parent.document.getElementById("product_details").innerHTML

            parent.document.getElementById('mask').style.opacity =
				"1";
            var s =
				"\'";
            s =
				'<li  id="'
				+ val.id +
				'">';
            k =
				'<li  id="'
				+ val.id +
				'"><div> <div style=" float:left; width:20%;"> ';
            k = k +
				' <img class=+ "\'"weui_media_appmsg_thumb+ "\'" src=+ "\'"./images/search.png+ "\'"/></div><div><h4 >'
				+ document.getElementById(val.id).innerHTML +
				'</h4><p>';
            k = k +
				'数量<input id="sl'
				+ val.id +
				'" type="number" value="1"  style="  border: none" read/>单价<input id="dj'
				+ val.id +
				'" type="number" value="3"  style="  border: none" read/></p></div> </div> </li>';


            if (htm.indexOf(s) >
				-1) { alert(document.getElementById(val.id).innerHTML +
				'存在'); }
            else {
                parent.document.getElementById("product_details").innerHTML = htm + k;
            }

        }


        function
				aaa() {
            document.getElementById('p1').style.display =
				'block'
            var result =
				submitAjaxFileds("getBrands.htm", "", "单位", "开户银行", "账号", false);
            var $p1 = document.getElementById("p1")
            $p1.innerHTML = result;
            $p1.querySelectorAll("li").forEach(function (val) {

                var sub = parent.document.getElementById("cancel");
                var btn = document.getElementById(val.id);
                btn.onclick
				=
				function () {
                    dd(val);
                    alert('aaa');
                    sub.click();
                }
            });
        }
    </script>

后台去掉click

Dim fl As String = ProjectPath & "mui\" & e.path

e.AsyncExecute = True '通知系统,将采用异步方式生成网页

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css",".html",".htm",".zip",".rar"

e.WriteFile(fl)

Return '这里必须返回

End Select

End If

Select Case e.Path

Case "getBrands.htm"

Dim sb As New StringBuilder

Dim drs As List(of DataRow) = DataTables("供应商表").SQLSelect(" 单位 like '%" & e.PostValues("单位") & "%' ")

For Each dr As DataRow In drs

sb.Append("<li id=""" & dr("开户银行") & """ >" & dr("开户银行") & "|" & dr("账号") & "</li> ")

e.WriteString(sb.ToString)

End Select

e.Handled = True

主题：js模拟点击事件