以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 帮忙修改命令  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53779)
--  作者：wumingrong1
--  发布时间：2014/7/15 12:05:00
--  [求助] 帮忙修改命令

If e.Node.Level = 2 Then \'如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim tr As Row = Tables("设备板件列表").Current
    Dim dr As DataRow = DataTables("设备清单列表").Find("设备厂家 = \'" & ps(0) & "\'And 设备名称 = \'" & ps(1) & "\'And 设备型号 = \'" & ps(2) & "\'")
    If dr IsNot Nothing Then \'如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        
        tr("设备厂家") = dr("设备厂家")
        tr("设备名称") = dr("设备名称")
        tr("设备型号") = dr("设备型号")
        
        
        e.Form.DropDownBox.Value = tr("设备厂家") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  \'关闭下拉目录树
End If


以上命令：如果我的 tr("设备厂家")    tr("设备名称")   tr("设备型号")  都是控件，没有绑定任何表；我的命令该怎么改：


图片点击可在新窗口打开查看此主题相关图片如下：360截图20140715120359781.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-7-15 14:11:21编辑过]
--  作者：有点甜
--  发布时间：2014/7/15 14:20:00
--  
If e.Node.Level = 2 Then \'如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim tr As Row = Tables("设备板件列表").Current
    Dim dr As DataRow = DataTables("设备清单列表").Find("设备厂家 = \'" & ps(0) & "\'And 设备名称 = \'" & ps(1) & "\'And 设备型号 = \'" & ps(2) & "\'")
    If dr IsNot Nothing Then \'如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
       
        tr("设备厂家") = dr("设备厂家")
        tr("设备名称") = dr("设备名称")
        tr("设备型号") = dr("设备型号")
        Forms("xxx").Controls("yyy").Text = dr("设备厂家")
       
        e.Form.DropDownBox.Value = tr("设备厂家") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  \'关闭下拉目录树
End If