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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码有错，如何改正？

共有548人关注过本帖树形打印复制链接主题：代码有错，如何改正？

lin98

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

加好友

发短信

等级：六尾狐帖子：1346 积分：8887 威望：0 精华：0 注册：2020/11/4 22:15:00

代码有错，如何改正？ 发帖心情

Post By：2024/8/9 8:59:00 [显示全部帖子]

需求：如果"日期"为空，列一，列二，列三不可编辑，否则，不为空，为编辑？如果列多比10多列，如何更简洁写？

''Dim dr As DataRow = e.DataRow

''Select Case e.DataCol.Name

'' Case "日期"

'' If dr.IsNull("日期") Then

'' dr("列一").Cancel = True

'' dr(列二").Cancel = True

'' dr("列三").Cancel = True

'' Else

'' dr("列一").Cancel = False

'' dr("列二").Cancel = False

'' dr("列三").Cancel = False

'' End If

''End Select

lin98

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

加好友

发短信

等级：六尾狐帖子：1346 积分：8887 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/8/9 10:06:00 [显示全部帖子]

If e.Col.Name = "日期" AndAlso e.Row.IsNull("日期") = False Then

e.Row("列一").Cancel = True

e.Row("列二").Cancel = True

e.Row("列三").Cancel = True

End If

执行后，无法实现需求

需求：如果"日期"为空，列一，列二，列三不可编辑，否则，不为空，为编辑？

lin98

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

加好友

发短信

等级：六尾狐帖子：1346 积分：8887 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/8/9 11:02:00 [显示全部帖子]

If Tables("窗口_Table2").Current.IsNull("日期") Then

e.Cancel = True，执行后，是整行，需求：如果"日期"为空，列一，列二，列三不可编辑，否则，不为空，为编辑？看帮助还不太理解，请帮处理，谢谢

' e.Row("期初_数量").Cancel = True

' e.Row("入库_数量").Cancel = True

' e.Row("出库_数量").Cancel = True

End If

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

主题：代码有错，如何改正？