- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50035)
-- 发布时间：2014/4/28 12:16:00
-- [求助]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:dianfei.rar |
求教，项目中“一月电费”表中，电量和电费生成以后，怎么自动加载到 基础表 一月_电费和一月电量列中，总户号要对应，
该在哪里如何编写代码呢？求求求
-- 发布时间：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
-- 发布时间：2014/4/28 12:35:00
--
基础表DataColChanged
If e.DataCol.Name = "总户号"
Dim dr As DataRow = e.DataRow
Dim dr1 As DataRow = DataTables("一月电费").Find("总户号=\'" & dr("总户号") & "\'")
If dr1 IsNot Nothing
dr("一月_电量") = dr1("电量")
dr("一月_电费") = dr1("电费")
End If
End If
另：无法理解明明可以一个表解决的事情，为何一定要用十二个表呢？
-- 发布时间：2014/4/28 12:51:00
--
谢谢指教，因为数据输入时单位人员的习惯问题，很有帮助，谢谢谢谢
-- 发布时间：2014/4/28 13:34:00
--
以下是引用liruiji在2014-4-28 12:51:00的发言：
谢谢指教，因为数据输入时单位人员的习惯问题，很有帮助，谢谢谢谢
每个月的数据都在一个表上，再照顾习惯，做一个窗口录入表。