[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有2647人关注过本帖树形打印复制链接主题：[求助]

liruiji

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：36 积分：385 威望：0 精华：0 注册：2014/3/17 15:25:00

[求助]

Post By：2014/4/28 12:16:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:dianfei.rar

求教，项目中“一月电费”表中，电量和电费生成以后，怎么自动加载到基础表一月_电费和一月电量列中，总户号要对应，

该在哪里如何编写代码呢？求求求

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/28 12:33:00 [只看该作者]

代码

Select Case e.DataCol.Name
    Case "单价","本月读数","上月读数","铜损","铁损","表倍率"
        Dim dr As DataRow
        dr = DataTables("基础表").Find("总户号 = '" & e.DataRow("总户号") & "'" )
        If dr IsNot Nothing '如果找到, 则设置各列内容
            e.DataRow("区域")= dr("区域")
            e.DataRow("地址")= dr("地址")
            e.DataRow("单价")= dr("单价")
            e.DataRow("表倍率")= dr("表倍率")
            dr("一月_电量") = e.DataRow("电量")
            dr("一月_电费") = e.DataRow("电费")
        End If
End Select