主题：程序不运行

此主题相关图片如下：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

调试

e.NewValue 跟 '" & e.DataRow("规格型号") & "' 跟这个有什么区别吗

 e.DataRow("规格型号") 是知道列名取数据