以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于数据输入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160072) |
||||
-- 作者:wugang0131 -- 发布时间:2021/1/19 14:35:00 -- 关于数据输入 想达到如下目的:“会议表中,”如果“缺席人员”列中有名字,则“发言人”列中改名字就不能输入。为此我写了如下代码: If e.DataCol.Name = "发言人" Then If e.DataRow.IsNull("缺席人员")=False Then Dim r As Row = Tables("会议").Current For Each s As String In r("缺席人员").split(",") Dim pr As DataRow pr = DataTables("会议").Find("[发言人] = \'"& s &"\'") If e.DataRow("发言人")=pr("发言人") Then e.DataRow("发言人")= e.OldValue End If Next End If End If 运行下来,可以实现目的,但同时系统总是提示“调用目标异常”。不知问题出在哪里?请各位老师指教,谢谢 |
||||
-- 作者:有点蓝 -- 发布时间:2021/1/19 14:39:00 -- prepareedit事件 If e.Col.Name = "发言人" Then if e.Row.IsNull("缺席人员")=False then e.cancel = true end if end if
|
||||
-- 作者:wugang0131 -- 发布时间:2021/1/19 14:54:00 -- 蓝老师,“缺席人员”列有多个名字,“发言人”列只有一个名字,您的代码好像不能实现我的目的啊 |
||||
-- 作者:有点蓝 -- 发布时间:2021/1/19 15:25:00 -- 没看懂举例说明一下 |
||||
-- 作者:wugang0131 -- 发布时间:2021/1/19 15:39:00 -- 蓝老师,请指教
|
||||
-- 作者:有点蓝 -- 发布时间:2021/1/19 16:02:00 -- 解释一下? |
||||
-- 作者:wugang0131 -- 发布时间:2021/1/19 16:04:00 -- 意思是只要“缺席人员”列出现的名字,“发言人”列就禁止输入,谢谢蓝老师 |
||||
-- 作者:有点蓝 -- 发布时间:2021/1/19 16:11:00 --
|
||||
-- 作者:wugang0131 -- 发布时间:2021/1/19 16:29:00 -- 谢谢蓝老师,搞定了! |