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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:货品管理.zip

到这里安装下载最新版：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=171144

输入了什么数据，请截图并举例说明

一输入新数据就自动显示的，如果不行，输入了什么数据，请截图并举例说明

代码改为

Select Case e.DataCol.Name

Case "计划交期","计划数量"

If e.DataRow.IsNull("计划交期") = False Then

Dim dr As DataRow = e.DataTable.Find("实际交期 > #" & e.DataRow("计划交期") & "#","实际交期")

If dr IsNot Nothing Then

Dim jhsl As Integer = e.DataTable.Compute("sum(计划数量)","计划交期 <=#" & e.DataRow("计划交期") & "#")

Dim sjsl As Integer = e.DataTable.Compute("sum(实际数量)","实际交期 <#" & dr("实际交期") & "#")

If jhsl > sjsl Then

Dim sp As TimeSpan = cdate(dr("实际交期")) - cdate(e.DataRow("计划交期"))

dr("延期天数") = sp.TotalDays

dr("延期数量") = jhsl - sjsl

End If

Case "实际交期","实际数量"

If e.DataRow.IsNull("实际交期") = False Then

Dim dr As DataRow = e.DataTable.Find("计划交期 < #" & e.DataRow("实际交期") & "#","计划交期 desc")

If dr IsNot Nothing Then

Dim jhsl As Integer = e.DataTable.Compute("sum(计划数量)","计划交期 <=#" & dr("计划交期") & "#")

Dim sjsl As Integer = e.DataTable.Compute("sum(实际数量)","实际交期 < #" & e.DataRow("实际交期") & "#")

If jhsl > sjsl Then

Dim sp As TimeSpan = cdate(e.DataRow("实际交期")) - cdate(dr("计划交期"))

e.DataRow("延期天数") = sp.TotalDays

e.DataRow("延期数量") = jhsl - sjsl

End If

End Select

Case "计划交期","计划数量"

If e.DataRow.IsNull("计划交期") = False Then

Dim dr As DataRow = e.DataTable.Find("实际交期 > #" & e.DataRow("计划交期") & "#","实际交期")

If dr IsNot Nothing Then

Dim jhsl As Integer = e.DataTable.Compute("sum(计划数量)","计划交期 <=#" & e.DataRow("计划交期") & "#")

Dim sjsl As Integer = e.DataTable.Compute("sum(实际数量)","实际交期 <#" & dr("实际交期") & "#")

If jhsl > sjsl Then

Dim sp As TimeSpan = cdate(dr("实际交期")) - cdate(e.DataRow("计划交期"))

dr("延期天数") = sp.TotalDays

dr("延期数量") = jhsl - sjsl

End If

e.DataTable.DataCols("实际交期").RaiseDataColChanged("实际交期 >= #" & e.DataRow("计划交期") & "#")

End If

主题：进仓库存问题