Foxtable(狐表)用户栏目专家坐堂 → [求助]如何实现这样的自动输入?


  共有5109人关注过本帖树形打印复制链接

主题:[求助]如何实现这样的自动输入?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/11/12 21:36:00 [显示全部帖子]

 在datacolchanged事件里加入代码

If e.DataCol.Name = "产品编号" Then
    Dim fdr As DataRow = DataTables("材料费预算表").Find("中标工程名称 = '" & e.DataRow("中标工程名称") & "' and 产品编号 = '" & e.NewValue & "'")
    If fdr IsNot Nothing Then
        e.DataRow("成本预算数量") = fdr("数量")
        e.DataRow("成本预算单价") = fdr("单价")
    Else
        fdr = DataTables("产品价格库").Find("产品编号 = '" & e.NewValue & "'")
        e.DataRow("成本预算数量") = 0
        If fdr IsNot Nothing Then
            e.DataRow("成本预算单价") = fdr("单价")
        End If
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/11/12 22:30:00 [显示全部帖子]

  不明白4楼表达的意思。怎么操作,输入什么,正确的结果应该是什么,请截图说明。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/11/12 22:48:00 [显示全部帖子]

 嗯嗯,明白,那你左边不要用 加载树 , 用 筛选树 就行了。

 回到顶部