修改内部函数  预算品目窗体NodeMouseClick事件

Dim e As object = Args(0)

If e.Node.level = 2 Then
    Dim tr As Row
    Dim dr As DataRow=e.Node.DataRow
    If e.Form.DropTable IsNot Nothing Then
        tr=e.Form.DropTable.current
    Else
        Dim nm As String =e.Form.DropDownBox.BindingField
        nm=nm.Split(".")(0)
        tr=Tables(nm).Current
    End If
    tr("pmmc")=dr("品目名称")
    tr("pmbm")=dr("目码")
    e.Form.DropDownBox.value=tr("pmmc")
    e.Form.DropDownBox.CloseDropdown()
End If