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

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

msgbox看一下 Filter1、Filter2的值。

检查一下你的数据，看看是不是多了一些空格、换行的字符影响了。

。。库存表里面的品种批次编码和入库出库的品种编码我都是从一张表里复制出来的……理论上是不存在不相同的啊。

BOX显示无内容………………感觉好像BUG一样。。

做个例子上来看看。

另外就是我入库表里还写了一个代码。就是如果库存表不存在这个品种，会自动增加行，复制这个品种信息过去。

然后测试这个品种入库，他会重复的新增。。也就是表示一直都找不到这个品种。。

…………我发誓我什么都没改。。重新打开项目，准备复制代码做个测试例子的时候又可以找到这个品种了……难道是我人品问题……

服务器上次一个后台库存统计，代码一样的。12点自动更新，昨天也没更新出来，等今晚看看能不能自动更新……

麻烦老师帮忙看下是不是代码不够严谨，谢谢了

你单独写一个按钮，弹出filter，弹出各步骤的值看一看是否正确啊。

查不到，肯定是你数据有问题啊。不会做请上传实例。

主题：[求助][讨论]