关于表里某一列数据为一个值后，不能通过窗体进行修改的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于表里某一列数据为一个值后，不能通过窗体进行修改的问题

共有2824人关注过本帖树形打印复制链接主题：关于表里某一列数据为一个值后，不能通过窗体进行修改的问题

scofields

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

加好友

发短信

等级：二尾狐帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00

关于表里某一列数据为一个值后，不能通过窗体进行修改的问题 发帖心情

Post By：2016/5/10 16:51:00 [只看该作者]

红袍老师，上次向你请教了一个关于窗体中控件不可用的问题，我的窗体中有一个“TableS”控件，并绑定了一个表，我想实现当表中列“状态”为“已生效”时，不能编辑。但我加入以下代码后，不管是不是“已生效”，都变成不可编辑状态，这是什么问题？求解。

For Each r As Row In Tables("JHS").Rows

If r("状态") ="已生效" Then

Forms("销售计划录入2").Controls("ComboBox3").Enabled = False

Forms("销售计划录入2").Controls("ComboBox1").Enabled = False

Forms("销售计划录入2").Controls("ComboBox2").Enabled = False

Forms("销售计划录入2").Controls("子客户").Enabled = False

Forms("销售计划录入2").Controls("数量").Enabled = False

Forms("销售计划录入2").Controls("textbox1").Enabled = False

Else

Forms("销售计划录入2").Controls("ComboBox3").Enabled = True

Forms("销售计划录入2").Controls("ComboBox1").Enabled = True

Forms("销售计划录入2").Controls("ComboBox2").Enabled = True

Forms("销售计划录入2").Controls("子客户").Enabled = True

Forms("销售计划录入2").Controls("数量").Enabled = True

Forms("销售计划录入2").Controls("textbox1").Enabled = True

End If

大红袍

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

加好友

发短信

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

Post By：2016/5/10 16:55:00 [只看该作者]

表格的Click事件

If Forms("销售计划录入2").Opened Then
    If e.Row("状态") ="已生效" Then
        Forms("销售计划录入2").Controls("ComboBox3").Enabled = False
        Forms("销售计划录入2").Controls("ComboBox1").Enabled = False
        Forms("销售计划录入2").Controls("ComboBox2").Enabled = False
        Forms("销售计划录入2").Controls("子客户").Enabled = False
        Forms("销售计划录入2").Controls("数量").Enabled = False
        Forms("销售计划录入2").Controls("textbox1").Enabled = False
    Else
        Forms("销售计划录入2").Controls("ComboBox3").Enabled = True
        Forms("销售计划录入2").Controls("ComboBox1").Enabled = True
        Forms("销售计划录入2").Controls("ComboBox2").Enabled = True
        Forms("销售计划录入2").Controls("子客户").Enabled = True
        Forms("销售计划录入2").Controls("数量").Enabled = True
        Forms("销售计划录入2").Controls("textbox1").Enabled = True
    End If
End If

scofields

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

加好友

发短信

等级：二尾狐帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2016/5/10 16:57:00 [只看该作者]

此主题相关图片如下：qq截图20160510165643.jpg

大红袍

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

加好友

发短信

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

Post By：2016/5/10 17:05:00 [只看该作者]

AfterSelChange事件

If Forms("销售计划录入2").Opened Then
    Dim r As Row = e.Table.Rows(e.NewRange.RowSel)
    If r("状态") ="已生效" Then
        Forms("销售计划录入2").Controls("ComboBox3").Enabled = False
        Forms("销售计划录入2").Controls("ComboBox1").Enabled = False
        Forms("销售计划录入2").Controls("ComboBox2").Enabled = False
        Forms("销售计划录入2").Controls("子客户").Enabled = False
        Forms("销售计划录入2").Controls("数量").Enabled = False
        Forms("销售计划录入2").Controls("textbox1").Enabled = False
    Else
        Forms("销售计划录入2").Controls("ComboBox3").Enabled = True
        Forms("销售计划录入2").Controls("ComboBox1").Enabled = True
        Forms("销售计划录入2").Controls("ComboBox2").Enabled = True
        Forms("销售计划录入2").Controls("子客户").Enabled = True
        Forms("销售计划录入2").Controls("数量").Enabled = True
        Forms("销售计划录入2").Controls("textbox1").Enabled = True
    End If
End If

scofields

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

加好友

发短信

等级：二尾狐帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2016/5/10 17:14:00 [只看该作者]

谢谢红袍老师，完美解决！

scofields

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

加好友

发短信

等级：二尾狐帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2016/5/10 17:35:00 [只看该作者]

红袍老师，我有一个问题：我是在云服务器上架构的SQL SERVER数据库，这个表中“状态”列的数据是随时都会变化的，多人操作嘛！我想实现的是当单击行数据时，自动刷新行数据；当修改保存数据前，自动判断是否在保存前被其他用户审核为“已生效”，如果是“已生效”，则撤销修改，并弹出对话框“已生效，无法修改”；否则，则修改成功。