Dim r As Row = Tables("半成品").Current
If r IsNot Nothing then
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree("合同信息","合同公司","计划号 = '" & r("计划号") & "' And 材质 = '" & r("材质") & "' ")
End If
加好友 
发短信
Post By：2011/12/26 16:05:00 [显示全部帖子]
