1、我想在目录树中双击以后将对应的“产品信息”的数据传给窗口中的表控件,包括一些产品规格和单价2、在表控件中直接输入数量计算出合计金额。
目前不知道怎么在窗口中生成对应的列以便数值传递过来
用的是例子 “”用目录树输入数据” 中的代码 NodeMouseDoubleClick
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("邮编")
e.Form.Close()