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

共有1759人关注过本帖树形打印复制链接主题：纠错

nbsugu_z

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

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

纠错

Post By：2019/7/25 15:45:00 [只看该作者]

Dim ctl As WinForm.Control = e.Sender

Select Case ctl.BindingField

Case "bg.fwsyqz_bh", "bg.fwsyqz_mj", "bg.fwsyqz_jzjg","bg.fwsyqz_ghyt","bg.tdsyz_bh","bg.tdsyz_mj","bg.tdsyz_qdfs","bg.tdsyz_zzrq","bg.fwsyqz_zcs","bg.fwsyqz_szc","bg.tdsyz_dlyt"

If e.Col.Name = "单证" Then

ctl.ReadOnly = BooleanEnum.False '允许编辑

Else

ctl.ReadOnly = BooleanEnum.True '禁止编辑

End If

End Select

老师，主代码是窗口中的ENTER事件中，目的是当满足当前行中的性质列，当性质为”单证“时，其他列的编辑控制，代码不对，哪里出错？

有点蓝

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

加好友

发短信

等级：超级版主帖子：107523 积分：546900 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/25 15:55:00 [只看该作者]

if tables("表A").current is nothing then return