- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 根据选择内容自动填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31449)
-- 发布时间：2013/4/15 17:27:00
-- 根据选择内容自动填充
菜鸟求公式，写了一个，不对，呵呵
此主题相关图片如下：qq截图20130415172712.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:根据选择内容自动填充.table |
-- 发布时间：2013/4/15 17:28:00
--
研究了半天DataColChanged事件，但是在筛选那里出错了哇
-- 发布时间：2013/4/15 17:29:00
--
你要干什么? 能不能把需求说出来
-- 发布时间：2013/4/15 17:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:根据选择内容自动填充.table |
是不是想这样
-- 发布时间：2013/4/16 14:40:00
--
学习行判断，下面这个公式错在那里呢？谢谢！
If e.DataCol.Name = "会议名称" Then \'如果内容发生变动的是会议名称列
If e.NewValue Is Nothing Then \'如果新值是空白,也就是会议名称列的内容为空
e.DataRow("参会人员") = Nothing \'那么清空此行参会人员列的内容
Else
Dim dr As DataRow
\'否则在参会范围表查找同名的产品行,将找到的行赋值给变量dr
dr=DataTables("参会范围").Find("单位列表 like \'*" & e.NewValue & "*\'")("参会人员范围")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("参会范围") = dr("参会范围")
End If
End If
End If
[此贴子已经被作者于2013-4-16 14:41:42编辑过]
-- 发布时间：2013/4/16 14:44:00
--
哈哈，触类旁通，搞定！