材料表=流水账,东仓库=花岗岩,1号,东仓库需要在材料表里获取关于花岗岩,1号的数据
1、借鉴跨表引用案例编写的代码能不能用?
2、如果代码可用,在哪里录入?找不到录入代码的地方
If e.DataCol.Name = "材料表" Then
Dim nms() As String = {"花岗岩","1号","日期","库类""形态","品类""性质","供应商或生产方""领用人","车牌号","车辆数""规格","运输起点""运输终点","运输距离""计量规格","计量单位","数量""单价","金额"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("花岗岩").Find("[1号] = '" & e.NewValue & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
[此贴子已经被作者于2020/12/26 18:16:14编辑过]