Foxtable(狐表)用户栏目专家坐堂 → 求助列动态单价


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

主题:求助列动态单价

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/19 8:44:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:报价表横向计算.zip


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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/19 9:13:00 [显示全部帖子]

那样更简单啊,按型号查询,然后把规格的值作为列名取单价即可

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/19 11:48:00 [显示全部帖子]

写了什么代码,发上来看看

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/19 12:05:00 [显示全部帖子]

参考2楼的用法,使用find查询

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/19 13:30:00 [显示全部帖子]

Select Case e.DataCol.Name 
    Case "型号" , "规格" 
        Dim dr As DataRow
            dr = DataTables("产品库").Find("型号='" & e.NewValue & "'")
            If dr IsNot Nothing Then
                e.DataRow("单价") = dr(e.DataRow("规格")) 
            End If 
End Select

 回到顶部