Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
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 = CurrentTable.Current
r("品牌") = dr("品牌")
r("货号") = dr("货号")
r("产品名称") = dr("产品名称")
r("单价") = dr("单价")
e.Form.Close()