表动态数据出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表动态数据出错

共有1907人关注过本帖树形打印复制链接主题：表动态数据出错

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/31 23:06:00 [显示全部帖子]

表格的datacolchanged事件，写代码

If e.DataCol.name = "机具是否绑定" Then
    If forms("窗口1").opened Then
        If e.DataRow("机具是否绑定") = True Then
            MessageBox.Show("机具已绑定客户!", "提示")
            forms("窗口1").Controls("bangdingkehu").Enabled=False
        Else
            MessageBox.Show("机具未绑定客户!", "提示")
            forms("窗口1").Controls("bangdingkehu").Enabled=True
        End If
    End If
End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/1 14:10:00 [显示全部帖子]

编写currentChanged事件代码

Dim r As Row = e.Table.current
If forms("窗口1").opened AndAlso r IsNot Nothing Then
    If r("机具是否绑定") = True Then
        MessageBox.Show("机具已绑定客户!", "提示")
        forms("窗口1").Controls("bangdingkehu").Enabled=False
    Else
        MessageBox.Show("机具未绑定客户!", "提示")
        forms("窗口1").Controls("bangdingkehu").Enabled=True
    End If
End If

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

主题：表动态数据出错