在用代码生成的临时表中增加一文本列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

……

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

主题：在用代码生成的临时表中增加一文本列