- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 程序不运行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177818)
-- 发布时间：2022/6/6 12:43:00
-- 程序不运行
此主题相关图片如下：3842.png
此主题相关图片如下：微信图片_20220606123943.png
此主题相关图片如下：微信图片_20220606123949.png
我这几个附表都有数据 程序写完了系统也不报错 为啥不运行呢
If e.DataCol.Name = "材料类型" Then
If e.DataRow("材料类型") = "检具"
Dim drm As DataRow
drm = DataTables("检具表").Find("[物料名称]= \'" & e.NewValue & "\' And [规格型号]= \'" & e.NewValue & "\' ", "[_SortKey] Desc" )
If drm IsNot Nothing Then
e.DataRow("现有库存数量") = drm("库存数量")
End If
ElseIf e.DataRow("材料类型") = "刀具"
Dim drn As DataRow
drn = DataTables("检具表").Find("[物料名称]= \'" & e.NewValue & "\' And [规格型号]= \'" & e.NewValue & "\' ", "[_SortKey] Desc" )
If drn IsNot Nothing Then
e.DataRow("现有库存数量") = drn("库存数量")
End If
Else
e.DataRow("材料类型") = "辅料"
Dim drt As DataRow
drt = DataTables("辅料表").Find("[物料名称]= \'" & e.NewValue & "\' And [规格型号]= \'" & e.NewValue & "\' ", "[_SortKey] Desc" )
If drt IsNot Nothing Then
e.DataRow("现有库存数量") = drt("库存数量")
End If
End If
End If
-- 发布时间：2022/6/6 13:47:00
--
调试
Dim drm As DataRow
If drm IsNot Nothing Then
e.DataRow("现有库存数量") = drm("库存数量")
End If
-- 发布时间：2022/6/6 16:45:00
--
e.NewValue 跟 \'" & e.DataRow("规格型号") & "\' 跟这个有什么区别吗
-- 发布时间：2022/6/6 17:19:00
--
e.DataRow("规格型号") 是知道列名取数据