- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 在用代码生成的临时表中增加一文本列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126604)
-- 发布时间：2018/10/25 9:25:00
-- 在用代码生成的临时表中增加一文本列
各位专家好！
我想在我用代码生成的查询临时表中再增加一列，列的名称为“所属类别”，内容需等于我的数据表“分类表”中对应的物料名称和物料长代码相同所对应的所属类别。
我的代码如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建 文本文档2.txt |
我的分类表结构如下：
此主题相关图片如下：分类表结构.png
代码生成的临时表如下：
此主题相关图片如下：代码形成的临时表.png
请教老家，我的代码还要如何修改才能实现？？谢谢！
-- 发布时间：2018/10/25 10:02:00
--
……
With DataTables("月度进出量").DataCols \'用表达式列计算库存数据
.Add("进出差异_数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0)")
.Add("所属类别",Gettype(String),30 )
End With
For Each r As Row In Tables("月度进出量").Rows
Dim dr As DataRow = DataTables("分类表").Find("物料名称=\'" & r("物料名称") & "\' and 物料长代码=\'" & r("物料长代码") & "\'")
If dr IsNot Nothing Then
r("所属类别") = dr("所属类别")
End If
Next
-- 发布时间：2018/10/25 17:53:00
--
搞定！谢谢您！