代码写到DropDownOpening事件
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")trv.BuildTree("产品明细表","客户|客户产品号","客户 = '" & Tables("订单明细表").Current("客户")&"'")
加好友 
发短信
Post By：2014/12/31 14:46:00 [显示全部帖子]
