Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，关联表自动填数据


  共有1762人关注过本帖树形打印复制链接

主题：求助，关联表自动填数据
帅哥哟，离线，有人找我吗？
long086
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00 		求助，关联表自动填数据  发帖心情 Post By：2019/7/16 18:47:00 [只看该作者]

有两张表一张客户资料表，一张客户交费表，客户资料表，有三列 客户编号，客户姓名，最后交费金额，客户交费表有客户编号，客户姓名，客户交费时间，客户交费金额。客户资料表是主表，通过客户编号关联，现在想要客户资料，最后交费时间，从客户交费表里面得到，客户最后一次交费的金额，自动填到客户资料表里面的 客户最后交费金额 列，请问老师如何实现。谢谢

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107825 积分：548476 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/16 20:35:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1451.htm

客户交费表datacolchanged事件

Select Case e.DataCol.Name
    Case "客户编号","客户交费时间","客户交费金额"
        Dim dr As DataRow = e.DataTable.Find("客户编号='" & e.DataRow("客户编号") & "'")
        If dr IsNot Nothing Then
            DataTables("客户资料表").DataCols("客户编号").RaiseDataColChanged(dr)
        End If
End Select

客户资料表datacolchanged事件
Select Case e.DataCol.Name
    Case "客户编号"
        Dim dr As DataRow = DataTables("客户交费表").Find("客户编号='" & e.DataRow("客户编号") & "'","客户交费时间 desc")
        If dr IsNot Nothing Then
            e.DataRow("最后交费金额") = dr("客户交费金额")
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
long086
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00 		你好。老师按照你的操作怎么不行  发帖心情 Post By：2019/7/16 22:06:00 [只看该作者]

 

 

你好。老师按照你的操作怎么不行，新手求指点


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/7/16 22:14:39编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107825 积分：548476 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/16 22:27:00 [只看该作者]

请认真看2楼，然后自己核对表名，列名

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询