以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教WeUI的表格属性使用问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145754)

--  作者:lanbor
--  发布时间:2020/2/6 17:13:00
--  请教WeUI的表格属性使用问题
各位专家新年好!
-------------以下是一段实例代码开始
  \'根据此页数据生成网页
    With wb.Add Table("form1","Table1")
        If Vars("table_model") = "浏览模式" Then    \'如果是看图模式,就启动看图函数
            .Attri bute= "onc lick=\'table_img1()\'"        调用这个函数是让用户在点击此行时,直接显示这行的刀具图片
        Else
            .Active Sheet="menu1"                         这是调用表格操作菜单
        End If
        .PageNumber=page
        .Colwidth="12px"
        .Highlight= 1
        .Alternate = 3 
        Dim nms() As String={"NO","名称","规格","数量","单位","编号"} \'"单价",
        .head.AddRow(nms)
        For Each r As Data Row In dt.DataRows \'Data Tables("item99").Select("isl01 >= 5 and ibh01=\'刀\'","imc01")
            With .body.addrow(r("NO."),r("imc01"),r("igg01"))
                If r("isl01") = 0 Then
                    .addcell(Format(r("isl01")),"class=\'mark\'")  \'style=\'color:blue;
                Else
                    .addcell(r("isl01"),"class=\'alignC\'")
                End If
                .addcell(r("idw01"),"class=\'alignC\'")
                \'                .addcell(Format(r("idj01"),"#0.00"),"class=\'markR\'")
                .addcell(r("ishelf01"),"class=\'alignC\'")
                .PrimaryKey=r("_Identify")    
            End With
        Next
    End With
-------------实例代码结束
            .Attri bute= "onc lick=\'table_img1()\'"        调用这个函数是让用户在点击此行时,直接显示这行的刀具图片
            .Active Sheet="menu1"                         这是调用表格操作菜单
上面这2个属性,现在让用户在操作之前先要选择 “操作模式” 或 “浏览模式” 进来,
然后才的浏览图片 或 操作菜单, 当我把2个属性放在一起,操作的时候,总是会产生点击“冲突",

请问:我应该如何布局这2个属性,才能让它们在一个表里共存,
        就是用户不需要先选择操作模式、进入应用 后点击任意行时,在表底部显示出产品图片;
        当用户连续点击行时,弹出菜单;
谢谢专家!
祝各位专家新年快乐!

[此贴子已经被作者于2020/2/6 17:18:07编辑过]

--  作者:有点蓝
--  发布时间:2020/2/6 18:09:00
--  
首先服务端不应该使用全局变量

其次,完整代码放到txt\'文件发上来看看

--  作者:lanbor
--  发布时间:2020/2/6 18:55:00
--  请专家针对楼上问题,帮忙指点一下,谢谢!

请专家针对楼上问题,帮忙指点一下,
谢谢!
[此贴子已经被作者于2020/2/7 11:50:57编辑过]

--  作者:有点蓝
--  发布时间:2020/2/7 9:23:00
--  
setProgressValue这个函数在哪里,没看到,另外如果调用了js处理,一般按钮不予使用submit

.Add("btn1", "开始查询", "button") \' .Attribute= """  \'.kind=2

其次不要使用全局变量Vars("table_model"),改为普通变量。

然后点击“冲突"具体指什么?

--  作者:lanbor
--  发布时间:2020/2/7 11:50:00
--  冲突主要体现在以下
            .Attri bute= "onc lick=\'table_img1()\'"        调用这个函数是让用户在点击此行时,直接显示这行的刀具图片
            .Active Sheet="menu1"                         这是调用表格操作菜单
如果以上2个属性放在一起:
当用户点一次某一行,在表格底部显示出产品的图片,
当用户点2次某一行时,表格还是首先在底部显示出产品的图片,同时再弹出表格菜单
        但在显示产品图片的时候,就把显示出来的菜单给解放掉了;导致无法继续操作菜单;

谢谢专家指教的以上几点,但还是无法达到我希望的目的。

--  作者:有点蓝
--  发布时间:2020/2/7 12:17:00
--  
这种代码肯定不能放到一起使用,像一楼代码,不是区分开的吗?怎么会在一起?

        If Vars("table_model") = "浏览模式" Then    \'如果是看图模式,就启动看图函数
            .Attri bute= "onc lick=\'table_img1()\'"        调用这个函数是让用户在点击此行时,直接显示这行的刀具图片
        Else
            .Active Sheet="menu1"                         这是调用表格操作菜单
        End If

--  作者:lanbor
--  发布时间:2020/2/7 13:29:00
--  终于专家的答复:
这种代码肯定不能放到一起使用,像一楼代码,不是区分开的吗?怎么会在一起?
谢谢你!