- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助列动态单价 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191466)
-- 发布时间：2024/4/19 8:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报价表横向计算.zip |
-- 发布时间：2024/4/19 9:13:00
--
那样更简单啊，按型号查询，然后把规格的值作为列名取单价即可
-- 发布时间：2024/4/19 11:48:00
--
写了什么代码，发上来看看
-- 发布时间：2024/4/19 12:05:00
--
参考2楼的用法，使用find查询
-- 发布时间：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 |