If e.Node.Level = 4 Then
Dim tr As Row = e.form.DropTable.Current
Dim dr As DataRow = e.Node.DataRow tr("供应商") = dr("供应商")
……