Foxtable(狐表)用户栏目专家坐堂 → [求助]无法点击生成的表


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

主题:[求助]无法点击生成的表

帅哥哟,离线,有人找我吗?
1538000
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:56 积分:421 威望:0 精华:0 注册:2017/7/27 15:11:00
[求助]无法点击生成的表  发帖心情 Post By: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

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


加好友 发短信
等级:婴狐 帖子:56 积分:421 威望:0 精华:0 注册:2017/7/27 15:11:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:56 积分:421 威望:0 精华:0 注册:2017/7/27 15:11:00
  发帖心情 Post By:2017/12/9 10:35:00 [显示全部帖子]

是不是不在同一个页面里面是不能点击的,我首先是有一个查询的页面,然后点击查询才显示这个页面。

 回到顶部
帅哥哟,离线,有人找我吗?
1538000
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:56 积分:421 威望:0 精华:0 注册:2017/7/27 15:11:00
  发帖心情 Post By:2017/12/9 10:46:00 [显示全部帖子]

我这放出的只是部分代买,就像我5楼说的那样,原因可能是那个

 回到顶部