Dim dt As DataTable = DataTables(fr & gps(i) &"核价")
Dim drs = dt.Select("款号 = '" & kss & "'and 样衣号 like '%" & yks & "%'","_sortkey")
For Each dr As DataRow In drs
Dim r As DataRow = DataTables("临时核价表").AddNew()
r("款号") = dr("款号")
r("样衣款号") = dr("样衣号")
r("项目名称") = dr(gps(i) & "名称")
r("分类") = gps(i) &"核价"
For Each dc As DataCol In dt.DataCols
If dc.Name = "规格" Then
r("规格") = dr("规格")
Else
r("规格") = Nothing
End If
Next
Next
为什么r("规格")里没有数据，DataTables(fr & gps(i) &"核价") 有dc.Name = "规格"的列，并且有数据
红色部分要求的意思是，如果有DataTables(fr & gps(i) &"核价") 表里"规格"的列，则r("规格") = dr("规格")否则r("规格") = Nothing
[此贴子已经被作者于2020/3/14 0:07:56编辑过]
加好友 
发短信
Post By：2020/3/14 0:03:00 [显示全部帖子]
