- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]按合同内容填写入库物资 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=22530)
-- 发布时间：2012/8/15 22:25:00
-- [求助]按合同内容填写入库物资
现在已经有了合同及合同明细。
在收货的时候，选择了供应商，在明细中怎么才能把这个供应商的合同中的明细物资直接显示出来，这样，只需要填写合同中约定物资的数量、单价就行了。
比如是收的张三的货，就把跟张三签的合同的明细的物资全部列出来，只填写数量、单价。
-- 发布时间：2012/8/16 8:19:00
--
设置在收货单表的Datacolchanged事件：
Select Case e.DataCol.Name
Case "供应商"
If e.DataRow.GetChildRows("收货单明细").count = 0 \'如果还没有输入明细,则自动生成
Dim drs As List(of DataRow) = DataTables("合同明细").Select("供应商 = \'" & e.DataRow("供应商") & "\'")
For Each dr1 As DataRow In drs
Dim dr2 As DataRow = DataTables("收货单明细").Addnew
dr2("收货单ID") = e.DataRow("_Identify")
dr2("货物编号") = dr1("货物编号")
dr2("货物名称") = dr1("货物名称")
dr2("规格") = dr1("规格")
dr2("单位") = dr1("单位")
Next
End If
End Select
你可以看到，上面的没有技巧可言，全是基础的，编程不是技术活，关键在于你能不能静下心里研究帮助，融会贯通。
[此贴子已经被作者于2012-8-16 8:19:20编辑过]
-- 发布时间：2012/8/16 9:47:00
--
谢谢。
其实帮助我也至少看了2遍了，对实现这个东东也有模糊的想法。我也知道要用遍历，只是在遍历的具体用法上没有参透。