- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助][讨论] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84427)
-- 发布时间：2016/5/1 16:10:00
-- [求助][讨论]
If e.DataCol.Name = "确认出入库" Then
Dim dr As DataRow
Dim filter1 As String
Dim filter2 As String
Dim filter As String = "1=1"
If e.DataRow.isnull("品名") = False Then
filter &= " and [品名] = \'" & e.DataRow("品名") & "\'"
End If
If e.DataRow.isnull("批号") = False Then
filter &= " and [批号] = \'" & e.DataRow("批号") & "\'"
End If
If e.DataRow.isnull("物料编码") = False Then
filter &= " and [物料编码] = \'" & e.DataRow("物料编码") & "\'"
End If
filter1 = filter & " and [库位] = \'" & e.DataRow("库位") & "\' and [货权] = \'" & e.DataRow("货权") & "\'"
filter2 = filter & " and [库位] = \'" & e.DataRow("库位") & "\' and [货权] = \'" & e.DataRow("货权") & "\' and [日期]=\'" & Date.today & "\'"
dr = DataTables("总库存表").SQLFind(Filter1 ) \'在行政区域表查找所输入省市和县市的行
If dr IsNot Nothing Then
Dim Sum1 As Single=DataTables("入库明细表").Compute("Sum(入库重量)",filter2)
dr("今日入库")=sum1
dr.Save
end if
End If
老师好，我用以上代码执行 ，入库几百个品种，其他品种都OK。唯独 这个品种怎么都找不到，也无法计算重量。请教下是啥原因
品种 批号 物料编码
C16SKTS
ZE36041201 11931000160C006100
-- 发布时间：2016/5/2 12:19:00
--
msgbox看一下 Filter1、Filter2的值。
检查一下你的数据，看看是不是多了一些空格、换行的字符影响了。
-- 发布时间：2016/5/2 17:45:00
--
。。库存表里面的品种批次编码和入库出库的品种编码我都是从一张表里复制出来的……理论上是不存在不相同的啊。
BOX显示无内容………………感觉好像BUG一样。。
-- 发布时间：2016/5/2 17:47:00
--
做个例子上来看看。
-- 发布时间：2016/5/2 17:48:00
--
另外就是 我入库表里还写了一个代码。就是 如果库存表不存在这个品种，会自动增加行，复制这个品种信息过去。
然后测试这个品种入库，他会重复的新增。。也就是表示一直都找不到这个品种。。
-- 发布时间：2016/5/2 17:57:00
--
稍等上传
-- 发布时间：2016/5/2 18:44:00
--
…………我发誓我什么都没改。。重新打开项目，准备复制代码做个测试例子的时候又可以找到这个品种了……难道是我人品问题……
-- 发布时间：2016/5/2 18:45:00
--
服务器上次一个后台库存统计，代码一样的。12点自动更新，昨天也没更新出来，等今晚看看能不能自动更新……
-- 发布时间：2016/5/2 18:50:00
--
麻烦老师帮忙看下是不是代码不够严谨，谢谢了
-- 发布时间：2016/5/2 20:13:00
--
你单独写一个按钮，弹出filter，弹出各步骤的值看一看是否正确啊。
查不到，肯定是你数据有问题啊。不会做请上传实例。