以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]无法点击生成的表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110716)
--  作者：1538000
--  发布时间：2017/12/8 9:36:00
--  [求助]无法点击生成的表
为什么这样生成的表在手机界面上显示的无法点击，无法点击我就不能调出菜单来，以下是部分代码：
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText= "s elect spbm as 商品编码,录入时间,sl as 数量,创建人,mdbm as 门店编码 From 商品盘点"
If flt > "" Then
    cmd.CommandText = cmd.CommandText & " where " & flt & " order by 录入时间 desc,_Identify desc "
End If
Dim Count As Integer = cmd.ExecuteScalar() \'获取总的行数
With wb.AddTable("","Table1")
    .CreateFromDataTable(cmd.ExecuteReader)
End With
--  作者：有点甜
--  发布时间：2017/12/8 9:53:00
--  

用这个实例，又没问题？

 

http://www.foxtable.com/mobilehelp/scr/0147.htm

 
--  作者：有点甜
--  发布时间：2017/12/8 9:56:00
--  

我这样测试，没，问，题。

 

Select Case e.Path
    Case "test.htm",""
        Dim wb As New WeUI
        With wb.AddTable("","table1")
            Dim cmd As new SQLCommand
            cmd.CommandText = "Select * from {表A}"
            Dim dt = cmd.ExecuteReader
            .CreateFromDataTable(dt)
           
            .ActiveSheet = "menu" \'指定菜单
        End With
        With wb.AddActionSheet("","menu") \'设计菜单
            .Add("menu1", "菜单项目1")
            .Add("menu2", "菜单项目2")
            .Add("menu3", "菜单项目3")
            .Add("menu4","取消","",True)
        End With
        e.WriteString(wb.Build)
End Select
--  作者：1538000
--  发布时间：2017/12/9 10:14:00
--  
我这样生成是不行的：

With wb.AddTable("","Table1")
    
    Dim cmd As new SQLCommand
    cmd.C
    cmd.CommandText= "s elect spbm as 商品编码,录入时间,sl as 数量,创建人,mdbm as 门店编码 From 商品盘点"
    If flt > "" Then
        cmd.CommandText = cmd.CommandText & " where " & flt & " order by 录入时间 desc,_Identify desc "
    End If
    Dim dt = cmd.ExecuteReader
     .PageNumber = page \'设置页码
    .Primarykey = "_Identify" \'设置主键
    .ActiveSheet = "menu" \'设置菜单
    .CreateFromDataTable(dt)
End With
With wb.AddActionSheet("","menu") \'设计菜单
    .Add("mnudAdd", "增加订单")
    .Add("mnuEdit", "编辑订单")
    .Add("mnuDelete", "删除订单")
    .Add("mnuCancel","取消","",True)
End With
--  作者：1538000
--  发布时间：2017/12/9 10:35:00
--  
是不是不在同一个页面里面是不能点击的，我首先是有一个查询的页面，然后点击查询才显示这个页面。
--  作者：有点蓝
--  发布时间：2017/12/9 10:37:00
--  
4楼代码测试没有问题。菜单点击2次才能出现的
--  作者：1538000
--  发布时间：2017/12/9 10:46:00
--  
我这放出的只是部分代买，就像我5楼说的那样，原因可能是那个
--  作者：有点蓝
--  发布时间：2017/12/9 11:13:00
--  
上传完整代码看，或者上传实例。