- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 出入库 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176406)
-- 发布时间：2022/4/12 11:07:00
-- 出入库
请问各位狐友，谁有简单的物品出入库流水账代码发一个急用，谢谢了！
-- 发布时间：2022/4/12 11:14:00
--
参考：http://www.foxtable.com/webhelp/topics/2136.htm
-- 发布时间：2022/4/12 15:09:00
--
Dim drs As New List(of DataRow)
With DataTables("防控物资储备")
For Each nm As String In .GetValues("物品名称") \'找出每个产品的第一行数据, 添加到集合drs中
drs.Add(.Find("物品名称 = \'" & nm & "\'", "[_SortKey]"))
Next
For Each r As DataRow In drs
.DataCols("入库_数量").RaiseDataColChanged(r)
Next
End With
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：项目,AfterOpenProject
详细错误信息：
Object reference not set to an instance of an object.
出现这个错误是什么意思呢？
-- 发布时间：2022/4/12 15:18:00
--
要对find的结果进行判断：http://www.foxtable.com/webhelp/topics/0396.htm
For Each nm As String In .GetValues("物品名称") \'找出每个产品的第一行数据, 添加到集合drs中
dim dr as datarow = .Find("物品名称 = \'" & nm & "\'", "[_SortKey]")
if dr isnot nothing then
drs.Add(dr)
end if
Next
-- 发布时间：2022/4/12 15:51:00
--
老师您好，我还是没弄明白。
代码怎么改呢。
-- 发布时间：2022/4/12 16:05:00
--
4楼不已经改了吗
-- 发布时间：2022/4/12 16:14:00
--
是不是复制您修改的代码即可呢？
改成下面这样编译通过不过呀。
Dim drs As New List(of DataRow)
With DataTables("防控物资储备")
For Each nm As String In .GetValues("物品名称") \'找出每个产品的第一行数据, 添加到集合drs中
dim dr as datarow = .Find("物品名称 = \'" & nm & "\'", "[_SortKey]")
if dr isnot nothing then
drs.Add(dr)
end if
Next
For Each r As DataRow In drs
.DataCols("入库_数量").RaiseDataColChanged(r)
Next
End With
[此贴子已经被作者于2022/4/12 16:18:19编辑过]
-- 发布时间：2022/4/12 16:19:00
--
Dim drs As New List(of DataRow)
With DataTables("防控物资储备")
For Each nm As String In .GetValues("物品名称") \'找出每个产品的第一行数据, 添加到集合drs中
dim dr as datarow = .Find("物品名称 = \'" & nm & "\'", "[_SortKey]")
if dr isnot nothing then
drs.Add(dr)
end if
Next
For Each r As DataRow In drs
.DataCols("入库_数量").RaiseDataColChanged(r)
Next
End With
-- 发布时间：2022/4/12 16:42:00
--
-- 发布时间：2022/4/12 16:44:00
--
dr这个变量名称重复了，自己改一个