- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 新增表的关联取值问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24214)
-- 发布时间：2012/10/8 11:37:00
-- 新增表的关联取值问题
我窗体里有两个副本表，想实现表B新增后，能自动获取表A的一些字段值
代码总不对，希望得到解惑，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
此主题相关图片如下：未命名.jpg
-- 发布时间：2012/10/8 12:03:00
--
Dim s As Row = Tables("A_RQ").Current
If s IsNot Nothing Then
Dim r As DataRow = Tables("A_CL").DataTable.AddNew
r("日期") = s("日期")
End If
原因： 你设置了A_CL的筛选条件，当新增一行，此行的日期为空，不符合筛选条件，所以此行户不会显示在Tables("A_CL")中，r为nothing，导致出错。
提示： 只有非副本的Normal型Table控件，新增行才会无条件显示在Table中。
[此贴子已经被作者于2012-10-8 12:04:05编辑过]
-- 发布时间：2012/10/8 12:04:00
--
If Tables("A_rq").Current IsNot Nothing Then
Dim dr As DataRow = DataTables("产量").AddNew
dr("日期") = Tables("A_rq").Current("日期")
End If
-- 发布时间：2012/10/8 20:34:00
--
以下是引用狐狸爸爸在2012-10-8 12:03:00的发言：
....
原因： 你设置了A_CL的筛选条件，当新增一行，此行的日期为空，不符合筛选条件，所以此行户不会显示在Tables("A_CL")中，r为nothing，导致出错。
提示： 只有非副本的Normal型Table控件，新增行才会无条件显示在Table中。
[此贴子已经被作者于2012-10-8 12:04:05编辑过]
感谢狐爸的解惑！