Foxtable(狐表)用户栏目专家坐堂 → 单元格双击


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

主题:单元格双击

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


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
单元格双击  发帖心情 Post By:2016/9/30 13:07:00 [只看该作者]

 表的双击事件:仓库的平面图点击单元格的仓位比如:Y18;这句代码报错------ r.(t.Cols(t.ColSel)).Substring(0,1) = "Y"
'Dim r As Row = Tables("一楼平面图").Current
'Dim t As Table =  Tables("一楼平面图")
'If r.Isnull(t.Cols(t.ColSel)) = False AndAlso  r.(t.Cols(t.ColSel)).Substring(0,1) = "Y" Then
    'DataTables("原料坯布仓库平面图_table1").loadfilter = "仓位 = '" & r(t.Cols(t.ColSel)) & "'"
    'DataTables("原料坯布仓库平面图_table1").Load()
    'DataTables("原料坯布仓库平面图_table2").loadfilter = "仓位 = '" & r(t.Cols(t.ColSel)) & "'"
    'DataTables("原料坯布仓库平面图_table2").Load()
    'Dim tab As winform.tabcontrol = e.form.controls("tabcontrol1")
    'tab.selectedindex = 2
'End If
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/30 14:24:00 [只看该作者]


Dim r As Row = Tables("一楼平面图").Current
Dim t As Table =  Tables("一楼平面图")
If r.Isnull(t.ColSel) = False AndAlso  r.(t.ColSel).Substring(0,1) = "Y" Then
    DataTables("原料坯布仓库平面图_table1").loadfilter = "仓位 = '" & r(t.ColSel) & "'"
    DataTables("原料坯布仓库平面图_table1").Load()
    DataTables("原料坯布仓库平面图_table2").loadfilter = "仓位 = '" & r(t.ColSel) & "'"
    DataTables("原料坯布仓库平面图_table2").Load()
    Dim tab As winform.tabcontrol = e.form.controls("tabcontrol1")
    tab.selectedindex = 2
End If


 回到顶部