- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]根据附表某列字段确定字表能否增加行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71719)
-- 发布时间：2015/7/16 18:46:00
-- [讨论]根据附表某列字段确定字表能否增加行
此主题相关图片如下：未命名.jpg
一下代码有bug....谁懂小白的心痛啊。。。。。。。。。。
If Tables("推荐考察").Current("工作类型")="民主推荐" Then
Tables("推荐得票_Table1").AllowAddNew = True
Tables("推荐得票_Table1").AddNew（）
Else
Tables("推荐得票_Table1").AllowAddNew = False
End If
[此贴子已经被作者于2015/7/16 18:47:22编辑过]
-- 发布时间：2015/7/16 18:51:00
--
去编写 BeforeAddDatarow 事件
If Tables("推荐考察").Current("工作类型") <> "民主推荐" Then
e.Cancel = True
End If
-- 发布时间：2015/7/16 19:30:00
--
窗口的“增加”键怎么写代码？顺便把附表的部分字段继承下来。。。
一下代码怎么改？
Dim dr As Row = Tables("推荐考察").Current
Tables("得票").AddNew()
e.DataRow("编号")= dr("编号")
-- 发布时间：2015/7/16 19:38:00
--
自己搞定了，呵呵，谢谢