Dim xiq As String = trv.SelectedNode.TextFor Each dr As DataRow In DataTables("tree").Select("商品名= '" & xiq & "' and 筛选 is null") dr("筛选")=jd dr.Save()Next