窗口代码如下，不知高手能不能帮到我
If e.Node.Level = 2 Then
Dim dr As DataRow = e.Node.DataRow
If e.Node.Checked = True Then
Dim dr1 As DataRow = DataTables("材料采购申请单").AddNew()
dr1("产品编号") = dr("产品编号")
dr1("产品名称") = dr("产品名称")
dr1("品牌规格") = dr("品牌规格")
dr1("单位") = dr("单位")
dr1("成本预算数量") = dr("数量")
dr1("成本预算单价") = dr("单价")
Else
Dim dr2 As DataRow = DataTables("材料采购申请单").Find("产品名称 = '" & dr("产品名称") & "' And 品牌规格 = '" & dr("品牌规格") & "'","_Identify DESC",0)
If dr2 IsNot Nothing AndAlso dr2.RowState = DataRowState.Added Then
dr2.Delete()
End If
End If
Else
e.Node.Checked = False
End If
If e.Node.Level = 2 Then
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[中标工程名称] = '" & vals(0) & "' and [产品名称] = '" & Vals(1) & "' And [品牌规格] = '" & Vals(2) & "'"
Dim dr As DataRow = DataTables("材料费预算表").Find(Filter)
Dim r As Row = Tables("材料采购申请单").Current
r("产品编号") = dr("产品编号")
r("产品名称") = dr("产品名称")
r("品牌规格") = dr("品牌规格")
r("单位") = dr("单位")
r("成本预算数量") = dr("数量")
r("成本预算单价") = dr("单价")
e.Form.Close()
End If
[此贴子已经被作者于2013-10-30 17:58:50编辑过]
加好友 
发短信
Post By：2013/10/30 17:35:00 [显示全部帖子]
此主题相关图片如下：qq截图20131030173206.png
