If e.Node.Level = 0 Then '如果是顶层节点
Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[供应商] = '" & Vals(0) & "' And [商品货号] = '" & Vals(1) & "'"
Dim dr As DataRow = DataTables("商品").Find(Filter)
Dim r As Row = Tables("订单.订单明细").Current
r("供应商") = dr("供应商")
r("商品货号") = dr("商品货号")
r("商品名称") = dr("商品名称")
r("规格型号") = dr("规格型号")
r("单价") = dr("单价")
e.Form.Close()
加好友 
发短信
Post By：2016/9/9 15:41:00 [显示全部帖子]
