[求助] 项目打不开 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 项目打不开

共有7097人关注过本帖树形打印复制链接主题：[求助] 项目打不开

大红袍

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/24 19:58:00 [只看该作者]

直接写

DataTables("机房设备清单表").DeleteFor("设备厂家 = '" & t.Current("设备厂家") & "' and 设备型号 = '" & t.Current("设备型号") & "'")

wumingrong1

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/3/28 13:19:00 [只看该作者]

我有一个【宽带帐号割接回访主窗口】；这个窗口中有表【Table1】【Table2】，其中【Table2】和【Table1】是同一个表；【Table2】设置为【副本】。

我在表的DoubleClick中写有以下命令；想实现当我双击【Table1】或【Table2】时，能够实现不同操作。我的命令该怎么修改？

If Forms("宽带帐号割接回访主窗口").Opened Then

    If Forms("宽带帐号割接回访主窗口").Controls("Table1") Then

        If User.Group <> "管理员" And User.Group <> "公司领导" Then
            Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel4")
            p1.Visible = True
            Forms("宽带帐号割接回访主窗口").Controls("Panel3").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel2").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel4").Width
        End If
    End If

Else

    If Forms("宽带帐号割接回访主窗口").Controls("Table2").Opened Then

        If User.Group <> "管理员" And User.Group <> "公司领导" Then
            Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel8")
            p1.Visible = True
            Forms("宽带帐号割接回访主窗口").Controls("Panel7").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel6").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel8").Width
        Else
        End If
    End If
End If

大红袍

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/28 14:22:00 [只看该作者]

判断一下表名即可。

msgbox(e.Table.Name)

If e.Table.Name = "宽带帐号割接回访主窗口_Table1" Then

ElseIf e.Table.Name = "xxxxxx" Then

End If

wumingrong1

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/3/28 14:45:00 [只看该作者]

目前蓝色部分命令没问题；红色部分命令执行不了；使用msgbox(e.Table.Name)查看到表名；但是命令就是执行不了

If Forms("宽带帐号割接回访主窗口").Opened Then

msgbox(e.Table.Name)

If e.Table.Name = "宽带帐号割接回访表" Then

        If User.Group <> "管理员" And User.Group <> "公司领导" Then
            Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel4")
            p1.Visible = True
            Forms("宽带帐号割接回访主窗口").Controls("Panel3").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel2").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel4").Width
        End If
    End If

dvubb 此主题相关图片如下：360截图20160328145239805.jpg

Else

If e.Table.Name = "宽带帐号割接回访主窗口_Table2" Then

        If User.Group <> "管理员" And User.Group <> "公司领导" Then
            Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel8")
            p1.Visible = True
            Forms("宽带帐号割接回访主窗口").Controls("Panel7").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel6").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel8").Width

End If
End If
End If

此主题相关图片如下：360截图20160328144734455.jpg

[此贴子已经被作者于2016/3/28 14:50:28编辑过]

大红袍

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/28 15:01:00 [只看该作者]

If Forms("宽带帐号割接回访主窗口").Opened Then

    msgbox(e.Table.Name)

    If e.Table.Name = "宽带帐号割接回访表" Then

        If User.Group <> "管理员" And User.Group <> "公司领导" Then
            Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel4")
            p1.Visible = True
            Forms("宽带帐号割接回访主窗口").Controls("Panel3").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel2").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel4").Width
        End If

    Else If e.Table.Name = "宽带帐号割接回访主窗口_Table2" Then


        If User.Group <> "管理员" And User.Group <> "公司领导" Then
            Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel8")
            p1.Visible = True
            Forms("宽带帐号割接回访主窗口").Controls("Panel7").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel6").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel8").Width


        End If
    End If
End If

wumingrong1

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/3/28 15:50:00 [只看该作者]

在PositionChanged中写有以下命令，提示错误；我的命令该怎么修改？

If Forms("宽带帐号割接回访主窗口").Opened() Then

If e.Table.Name = "宽带帐号割接回访主窗口_Table2" Then

Dim dr As Row = Forms("宽带帐号割接回访主窗口").Controls("Table2")

Forms("宽带帐号割接回访主窗口").Controls("TextBox4").text = dr("铁通宽带帐号")
Forms("宽带帐号割接回访主窗口").Controls("DateTimePicker4").text = dr("关停日期")

End If
End If

此主题相关图片如下：360截图20160328155126085.jpg

大红袍

小大 27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/28 15:51:00 [只看该作者]

Dim dr As Row = e.Table.Current

wumingrong1

小大 28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/3/28 15:59:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：360截图20160328160025110.jpg

注明：该【关停日期】控件没有绑定如何列

图片点击可在新窗口打开查看此主题相关图片如下：360截图20160328160121257.jpg

[此贴子已经被作者于2016/3/28 15:59:54编辑过]

大红袍

小大 29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/28 16:18:00 [只看该作者]

1、你控件里面是否写有代码？

2、加入msgbox，在你positionChanged事件弹出具体的值看看。

wumingrong1

小大 30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/3/28 17:07:00 [只看该作者]

positionChanged事件中只写了以下命令

If Forms("宽带帐号割接回访主窗口").Opened() Then

If e.Table.Name = "宽带帐号割接回访主窗口_Table2" Then

Dim dr As Row = Forms("宽带帐号割接回访主窗口").Controls("Table2").Table.Current
Forms("宽带帐号割接回访主窗口").Controls("TextBox4").text = dr("铁通宽带帐号")
Forms("宽带帐号割接回访主窗口").Controls("DateTimePicker4").text = dr("关停日期")

End If
End If

下一主题 >> << 上一主题

总数 83 上一页 1 2 3 4 5 6 7 8 9 下一页

主题：[求助] 项目打不开