标题：[求助]按条件换行自动锁定行

1楼

710717123 发表于：2024/7/29 7:45:00

当客户信息列，不为空，换行自动锁定当前行.公式

论坛看了几个例子都显示语法错误e运算符后缺少操作数

在fx表达式里写的

[此贴子已经被作者于2024/7/29 8:07:34编辑过]

2楼

有点蓝 发表于：2024/7/29 8:49:00

表格BeforeSelChange事件

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
        if r.isnull("客户信息") then

r.locked = true

end if

End If
End If

共2 条记录, 每页显示 10 条, 页签: [1]