以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]按条件换行自动锁定行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192869) |
-- 作者:710717123 -- 发布时间:2024/7/29 7:45:00 -- [求助]按条件换行自动锁定行 当客户信息列,不为空,换行自动锁定当前行.公式
论坛看了几个例子 都显示 语法错误e运算符后缺少操作数
在fx表达式里写的 [此贴子已经被作者于2024/7/29 8:07:34编辑过]
|
-- 作者:有点蓝 -- 发布时间: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 |