共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：求助列动态单价
1楼
yifan3429 发表于：2024/4/19 0:33:00
2楼
有点蓝 发表于：2024/4/19 8:44:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报价表横向计算.zip |
3楼
yifan3429 发表于：2024/4/19 8:59:00
此主题相关图片如下：企业微信截图_20240419085804.png
老师早 我是要从产品库获取价格到报价表 例如产品 型号 有多个规格 单价根据
型号对应的规格获取
此主题相关图片如下：企业微信截图_20240419085817.png
[此贴子已经被作者于2024/4/19 8:59:06编辑过]
4楼
有点蓝 发表于：2024/4/19 9:13:00那样更简单啊，按型号查询，然后把规格的值作为列名取单价即可
5楼
yifan3429 发表于：2024/4/19 11:33:00就是没搞通，需要老师指点
row会搞 col搞了没搞好
[此贴子已经被作者于2024/4/19 11:34:42编辑过]
6楼
有点蓝 发表于：2024/4/19 11:48:00写了什么代码，发上来看看
7楼
yifan3429 发表于：2024/4/19 11:54:00Select Case e.DataCol.Name
Case "型号" , "规格"
e.DataRow("单价") = Tables("产品库").Cols("型号") = e.DataRow("型号") And Tables("产品库").Cols("型号") = e.DataRow("型号")
End Select
8楼
有点蓝 发表于：2024/4/19 12:05:00参考2楼的用法，使用find查询
9楼
yifan3429 发表于：2024/4/19 12:31:00Select Case e.DataCol.Name
Case "型号" , "规格"
Dim dr As DataRow
For Each dc As DataCol In e.DataTable.DataCols
dr = DataTables("产品库").Find("型号='" & e.NewValue & "' and '" & e.DataRow("规格") & "'= '" & dc.Name & "'")
If dr IsNot Nothing Then
e.DataRow("单价") = dr("单价")
End If
Next
End Select
还是不行
10楼
有点蓝 发表于：2024/4/19 13:30:00Select 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 |
共10 条记录, 每页显示 10 条, 页签:
[1]