Foxtable(狐表)用户栏目专家坐堂 → 调用不到JS


  共有3299人关注过本帖树形打印复制链接

主题:调用不到JS

帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
调用不到JS  发帖心情 Post By:2019/6/29 14:03:00 [显示全部帖子]

老师,这串代码中,我是手工编码生成表格单,现在我调用JS的帮助 发现 .CreateFromDataTable(dt) 的话 就出现两个一样的表格了,dt的是可以调用JS,自己手工编码的不能调用JS 请问这个怎么改

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20190629140125.png
图片点击可在新窗口打开查看
 Dim dt As DataTable = cmd.ExecuteReader

        If flt > "" Then
            cmd.CommandText = cmd.CommandText & " where " & flt
        End If
wb.AppendHTML("<style>.mark{background-color:green; color:white;}</style>", True)
    With wb.AddTable("","Table1")    
                    
.Highlight = 1

            .Alternate = 3
            
            Dim nms() As String = {"单据编号","供应商","单据状态","制单时间","物料名称","制单人","审核时间"}
             
            .Head.AddRow(nms)
            
            For Each r As DataRow In dt.DataRows    

            .PageNumber = page '设置页码
            .Primarykey = "单据编号" '设置主键
.CreateFromDataTable(dt) 

If r("单据状态") = "审核" Then
With .Body.AddRow()            
.AddCell(r("单据编号"))
.AddCell(r("供应商"))
.AddCell (r("单据状态"),"class='mark'")
.AddCell(r("制单时间"))
.AddCell(r("物料名称"))
.AddCell(r("制单人"))
.AddCell(r("审核时间"))


 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By:2019/6/29 16:43:00 [显示全部帖子]


老师,去掉是可以正常显示页面了,但是不能调用JS,我有两个网页一个是cxsj.htm ,打开如图,当我选择行后再点击查看明细按钮,就应该跳转到cgmx.htm网页了,我上传两个网页和JS代码了,老师帮我看一下谢谢

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20190629163731.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cgmx.htm.txt
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cxsj.htm.txt

cgmx.JS代码为:
function cgmx(){
    if (table1.primarykey){
        location="cgmx.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey; 
    }
}



 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By:2019/7/1 8:47:00 [显示全部帖子]

JS路径是对的,好像还是不行

 回到顶部