以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何通过判定子表某一列是否有数据从而自动在主表某列自动输入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118951)

--  作者:不安抗辩权
--  发布时间:2018/5/15 0:49:00
--  如何通过判定子表某一列是否有数据从而自动在主表某列自动输入
求教各位老师,我用主表关联了几个表,主表有一列我想让它通过判定子表是否有数据而自动输入。
比如子表1第1列有数据则输入1
子表2第1列有数据则输入2
子表3第1列有数据则输入3
否则输入4
我用表事件试了很久也不行,请老师指教如何表达。。
感谢!

--  作者:有点甜
--  发布时间:2018/5/15 8:46:00
--  

各个子表datacolchanged事件写代码

 

http://www.foxtable.com/webhelp/scr/1451.htm

 


--  作者:不安抗辩权
--  发布时间:2018/5/15 23:19:00
--  
老师,我仔细学习了,但这个案例是实现在a表中自动查找b表的数据填入,但我想实现的是在子表变动的时候父表某列进行变动。我写的datacolchanged事件如下
if e.datacol.name = “aa” then
e.datarow(“bb”) = “cc”
end if
但是它提示列“bb”不属于当前表 
请问这个情况怎么处理呢?

--  作者:有点蓝
--  发布时间:2018/5/15 23:27:00
--  
这种:http://www.foxtable.com/webhelp/scr/1453.htm

子表datacolchanged事件

If e.DataCol.name = "aa" Then
    Dim dr As DataRow = DataTables("父表").Find("编号=\'" & e.DataRow("编号") & "\'")
    If dr IsNot Nothing Then
        dr("bb") = "cc"
    End If
End If

--  作者:不安抗辩权
--  发布时间:2018/5/16 0:18:00
--  
 啊,成功了,谢谢老师~~