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


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

主题：求助
帅哥哟，离线，有人找我吗？
nbsugu_z
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3682 威望：0 精华：0 注册：2017/4/8 8:59:00 		求助  发帖心情 Post By：2017/7/24 12:26:00 [只看该作者]

列为：A单位本期  A单位上期   B单位本期  B单位上 期  ............
行为月份 如 1月 2月 3月......
这样 一张数据表，  要做的是每增加一行（月份），本月有上期数据=上月的本期数。 每个 单位都能自动取上月的本期数作为当月的上期数。

代码如何写？
参照流水帐写出过，也成功过，但是要每个单位都写上代码（计算公式），这样单位多就麻烦 了，有没有更简单的方法，能自动把所有列的 上期数自动
[此贴子已经被作者于2017/7/24 12:31:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/24 14:30:00 [只看该作者]

DataColChanted

 

If e.DataCol.name = "月份" Then
    Dim fdr As DataRow = e.DataTable.Find("月份 < '" & e.DataRow("月份") & "'", "月份 desc")
   
    If fdr IsNot Nothing Then
        For Each dc As DataCol In e.DataTable.datacols
            If dc.Name Like "*上期*" Then
                e.DataRow(dc.name.replace("上期", "本期")) = fdr(dc.name)
            End If
        Next
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
nbsugu_z
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3682 威望：0 精华：0 注册：2017/4/8 8:59:00 		  发帖心情 Post By：2017/7/25 10:19:00 [只看该作者]

谢谢，试用后比我原来简单多了，尽管有点不太懂。如果再增加多列，分别是每个单位的本期减上期（统计增减差额），代码要如何加呢？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/25 10:31:00 [只看该作者]

If e.DataCol.name Like "*本期*" OrElse e.DataCol.name Like "*上期*" Then

    Dim name As String = e.Datacol.Name.Replace("本期", "").Replace("上期", "")
    e.DataRow(name & "差额") = e.DataRow(name & "本期") - e.DataRow(name & "上期")
End If

[此贴子已经被作者于2017/7/25 10:31:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nbsugu_z
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3682 威望：0 精华：0 注册：2017/4/8 8:59:00 		  发帖心情 Post By：2017/7/25 12:51:00 [只看该作者]

解决，谢谢老师

 回到顶部
帅哥哟，离线，有人找我吗？
nbsugu_z
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3682 威望：0 精华：0 注册：2017/4/8 8:59:00 		  发帖心情 Post By：2017/7/25 13:07:00 [只看该作者]

按上面的方法设计了一个电表抄表计算。二个数据表
 表A为各电表编号 全数字，如1123，列名为：编号、价格
表B：列名为：  月份   D1123dj    d1124dj  d1125dj .........
现在要每增加一个月份（增加一行）后，表B的对应的单价能从表A中获取。
因表B列名不能以数字开头，加了一个“D”，因为以后还有相应倍率的列行增加，所以单价后面加了个“ DJ"

现在写了如下代码，提示未将对象引用设置到对象实例，进入死环，请指教
If e.DataCol.name = "月" Then
    If e.DataCol.name Like "*dj*"  Then

    Dim name1 As String = Left(e.DataCol.Name.Replace("dj", ""),1) '去掉后二位dj和第一位字符得到编号
    Dim drb As DataRow
                drb = DataTables("表A").Find("编号 = 'name1'") '找到表识别中编号为name1的行
                e.DataRow( "d"  &  name1 & "dj")  = drb("价格")   '自动从"表识别"取数
     End if 
end if

以上 一个一个取数我已经会做的，现在想快速点，因为表B的电表列名去掉第一个字符和最后二个字符 就是表A的编号，有这个关系在，想直接一次性解决，减少代码，因为电表有很多。

[此贴子已经被作者于2017/7/25 13:28:08编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/25 15:37:00 [只看该作者]

If e.DataCol.name = "月" Then
    For Each c As DataCol In e.DataTable.DataCols
        If c.name Like "*dj*"  Then
            Dim name1 As String = Left(e.DataCol.Name.Replace("dj", ""),1) '去掉后二位dj和第一位字符得到编号
            Dim drb As DataRow
            drb = DataTables("表A").Find("编号 = '" & name1 & "'") '找到表识别中编号为name1的行
            If drb IsNot Nothing Then
                e.DataRow(c.name)  = drb("价格")   '自动从"表识别"取数
            End If
        End If
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
nbsugu_z
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3682 威望：0 精华：0 注册：2017/4/8 8:59:00 		  发帖心情 Post By：2017/7/25 16:16:00 [只看该作者]

运行后取不到价格
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/25 16:41:00 [只看该作者]

以下是引用nbsugu_z在2017/7/25 16:16:00的发言：
运行后取不到价格

 

运行下面的代码，执行，弹出什么？

 

If e.DataCol.name = "月" Then
    For Each c As DataCol In e.DataTable.DataCols
msgbox(c.name)
        If c.name Like "*dj*"  Then
            Dim name1 As String = Left(e.DataCol.Name.Replace("dj", ""),1) '去掉后二位dj和第一位字符得到编号
            Dim drb As DataRow
msgbox(name1)
            drb = DataTables("表A").Find("编号 = '" & name1 & "'") '找到表识别中编号为name1的行
            If drb IsNot Nothing Then
msgbox(drb("价格"))
                e.DataRow(c.name)  = drb("价格")   '自动从"表识别"取数
            End If
        End If
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
nbsugu_z
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3682 威望：0 精华：0 注册：2017/4/8 8:59:00 		  发帖心情 Post By：2017/7/25 17:07:00 [只看该作者]

If e.DataCol.name = "月" Then
    For Each c As DataCol In e.DataTable.DataCols
msgbox(c.name)     一直在弹出所有列名，  一直按确定，关不了机，只有电脑重启，下面的代码好象没执行
        If c.name Like "*dj*"  Then
            Dim name1 As String = Left(e.DataCol.Name.Replace("dj", ""),1) '去掉后二位dj和第一位字符得到编号
            Dim drb As DataRow
msgbox(name1)
            drb = DataTables("表A").Find("编号 = '" & name1 & "'") '找到表识别中编号为name1的行
            If drb IsNot Nothing Then
msgbox(drb("价格"))
                e.DataRow(c.name)  = drb("价格")   '自动从"表识别"取数
            End If
        End If
    Next
End If

一直在弹出所有列名，  一直按确定，重复弹出所有列名，关不了机，只有电脑重启，正面的代码好象没执行
[此贴子已经被作者于2017/7/25 17:09:41编辑过]
 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询