Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码求助，内详


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

主题：[求助]代码求助，内详
帅哥哟，离线，有人找我吗？
狐作非为
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		[求助]代码求助，内详  发帖心情 Post By：2016/3/6 11:06:00 [只看该作者]

代码求助，内详
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.zip

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


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		  发帖心情 Post By：2016/3/6 11:31:00 [只看该作者]

有神在吗？

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


加好友 发短信
等级：四尾狐 帖子：953 积分：7252 威望：0 精华：0 注册：2011/9/6 13:36:00 		  发帖心情 Post By：2016/3/6 11:35:00 [只看该作者]

数据库结构不合理，哪有这样建数据库的

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


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		  发帖心情 Post By：2016/3/6 11:38:00 [只看该作者]

只是内部表，

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


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		  发帖心情 Post By：2016/3/6 11:52:00 [只看该作者]

大红袍老师帮下吧

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


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		  发帖心情 Post By：2016/3/6 12:27:00 [只看该作者]

无解吗？图片点击可在新窗口打开查看

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/6 12:47:00 [只看该作者]

Select Case e.DataCol.name
    Case  "工程名称","工程编码","合计","短缺数","缺口日期","总短缺数"
    Case Else
        Dim hj1 As Integer = 0
        Dim hj2 As Integer = 0
       
        For Each dc As Col In Tables("工程表").Cols
            If dc.Index>6 And e.DataRow.IsNull(dc.Name)=False Then
                hj1 += e.DataRow(dc.Name)
                If hj1 > e.DataRow("当前库存") Then
                    e.DataRow("缺口日期")= dc.Name
                    hj2 = hj1
                End If
            End If
        Next
       
        If hj2 > e.DataRow("当前库存") Then
            e.DataRow("短缺数")=hj2 - e.DataRow("当前库存")
            e.DataRow("总短缺数")=hj1-hj2+e.DataRow("短缺数")
        Else
            e.DataRow("缺口日期")=Nothing
            e.DataRow("短缺数")=0
            e.DataRow("总短缺数")=0
        End If
       
        e.DataRow("合计")=hj1
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
狐作非为
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		  发帖心情 Post By：2016/3/6 13:06:00 [只看该作者]

谢谢，我试试

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


加好友 发短信
等级：四尾狐 帖子：953 积分：7252 威望：0 精华：0 注册：2011/9/6 13:36:00 		  发帖心情 Post By：2016/3/6 14:02:00 [只看该作者]

Select Case e.DataCol.name
    Case  "工程名称","工程编码","合计","短缺数","缺口日期","总短缺数"
    Case Else
        Dim hj1 As Integer = 0
        Dim hj2 As Integer = 0
        Dim b As Boolean = True
        For Each dc As Col In Tables("工程表").Cols
            If dc.Index>6 And e.DataRow.IsNull(dc.Name)=False Then
                hj1 += e.DataRow(dc.Name)
                If b Then
                    If hj1 > e.DataRow("当前库存") Then
                        e.DataRow("缺口日期")= dc.Name
                        e.DataRow("短缺数")=hj1 - e.DataRow("当前库存")
                        hj2 = e.DataRow("短缺数")
                        b = False
                    End If
                Else
                    hj2 += e.DataRow(dc.Name)
                End If
            End If
        Next
        
        If hj2 > 0 Then
            e.DataRow("总短缺数")=hj2
        Else
            e.DataRow("缺口日期")=Nothing
            e.DataRow("短缺数")=0
            e.DataRow("总短缺数")=0
        End If
        
        e.DataRow("合计")=hj1
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询