主题：狐爸请进有新问题，关于表达式列用代码计算

   小弟初学狐表，想做一个带BOM的仓库管理软件。

问题是，库存数量是用表达式计算。到BOM表中要显示即时库存。但是用代码跨表引用的话必须要用字符列。

本人能力有限，望各位大侠赐教。另本系统有不足之处请指出，万分感激！

  本人QQ：493002659

 

 

   附件在一楼！请各位赐教！

 

 狐爸还是昨天那个系统，我如果想在计划生产列的第一行输入一个数值100，怎么写它才能自动填充下面的空行呢？

 

 

此主题相关图片如下：00123.jpg

 

另表属性已经有一个事件了，要实现上面的功能代码怎么加。望狐爸提点，谢谢！

If e.DataCol.Name = "物料编号" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("库存") = Nothing '那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("库存").Find("[物料编号] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("库存") = dr("库存_数量")
        End If
    End If
End If
Select Case e.DataCol.Name
    Case "总装用量","库存","计划生产"
        e.DataRow("余数") = (e.DataRow("库存") / e.DataRow("总装用量") - e.DataRow("计划生产")) * e.DataRow("总装用量")
End Select

此主题相关图片如下：00001.jpg


此主题相关图片如下：00002.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:仓库管理.rar

 

 

谁说的“跨表引用的话必须要用字符列”？

跨表引用，任何类型的列都可以。

 

你的代码有问题，正确的:

 

If e.DataCol.Name = "物料编号" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("库存") = Nothing '那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("库存").Find("[物料编号] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("库存") = dr("库存_数量")
        End If
    End If
End If

谢谢楼上的老师！

本人菜鸟，请大家帮帮忙！谢谢！我把贴顶上去！

这段代码本身有缺陷，如果在下面空白处输入内容它就会报错。这是怎么回事啊？

 

 

此主题相关图片如下：112245.jpg