* This convoluted expression toNode.Checked = !toNode.Checked=.t. * Is the same as simple toNode.Checked = !toNode.Checked
Select mytableA Set Order To client_id Seek toNode.Tag If Found() ... * can be shortened to If SEEK(toNode.Tag, "mytableA", "client_id") ... <pre> > >at mytreeview.nodecheck method I'm trying to:<pre>*** ActiveX Control Event *** >Lparameters toNode >This.SelectedItem = toNode >If Empty(toNode.Tag) > Thisform.actionrecursive_in_child( toNode ) >Else > Select mytableA > Set Order To client_id > Seek toNode.Tag > If Found() and !Empty(clients.email) > toNode.Checked = !toNode.Checked=.t. && seems doing fine > Else > toNode.Checked = .f. && here is the point... uncheck fine here. > *This.SelectedItem.Checked = .f. > * ?? CHR(07) > * ThisForm.Container1.Text10.SetFocus() > * NODEFAULT > * RETURN .f. > Endif >Endif >>