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

请问一下我模拟点击事件为什么第一次增加的li没反应再次点击才弹出 aa

<!DOCTYPE html>

<head>

function aaa(){

document.getElementById('p1').style.display='block'

var result=submitAjaxFileds("getBrands.htm","","单位","开户银行","账号",false);

document.getElementById("p1").innerHTML=result;

}

function dd(val){

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

var sub = parent.document.getElementById("cancel");

var btn = document.getElementById(val.id);

btn.onclick = function() {

alert('aaa');

sub.click();

}

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 ; }

}

</script>

</head>

</div>

</div>

</form>

</body>

</html>

不要贴代码，请打包上传具体可以执行的 htm、js、css 文件测试。

[此贴子已经被作者于2018/8/3 18:31:07编辑过]

老师你好，我这个页面（http://192.168.1.203:10086/aa.html ）打开后点击选择添加输入单位查询到的数据点击后在父页增加了一行记录但是没有弹出对话框 aaa

第二次点增加后才弹出我代码要怎么修改父页插入后关闭掉子页按钮模拟点击事件没有立即生效
图片点击可在新窗口打开查看

此主题相关图片如下：1.png

此主题相关图片如下：2.png

[此贴子已经被作者于2018/8/4 9:58:29编辑过]

请上传视实例测试

已解决

[此贴子已经被作者于2018/8/4 9:58:08编辑过]

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模拟点击事件