此主题相关图片如下：111.png
下面这种写法是可以存储固定列信息，但颜色尺码不固定要怎么写？
For Each drr As Row In CurrentTable.Rows
Dim dr1 As DataRow = DataTables("大货用料表").AddNew
dr1("物料基本信息_序号")=drr("物料基本信息_序号")
dr1("物料基本信息_物料大类")=drr("物料基本信息_物料大类")
dr1("物料基本信息_客供")=drr("物料基本信息_客供")
dr1("物料基本信息_物料名称")=drr("物料基本信息_物料名称")
dr1("物料基本信息_物料辅助说明")=drr("物料基本信息_物料辅助说明")
dr1("物料基本信息_部位及用途")=drr("物料基本信息_部位及用途")
dr1("物料基本信息_布封")=drr("物料基本信息_布封")
dr1("物料基本信息_克重")=drr("物料基本信息_克重")
dr1("物料基本信息_单位")=drr("物料基本信息_单位")
dr1("物料基本信息_版规格配色要求")=drr("物料基本信息_版规格配色要求")
dr1("物料基本信息_不分色")=drr("物料基本信息_不分色")
dr1("物料基本信息_适用颜色")=drr("物料基本信息_适用颜色")
dr1("物料基本信息_同色")=drr("物料基本信息_同色")
dr1("物料基本信息_同量")=drr("物料基本信息_同量")
dr1("物料基本信息_分码")=drr("物料基本信息_分码")
dr1("物料基本信息_适用尺码")=drr("物料基本信息_适用尺码")
dr1("物料基本信息_物料编码")=drr("物料基本信息_物料编码")
dr1("用量信息_待定")=drr("用量信息_待定")
dr1("用量信息_上级")=drr("用量信息_上级")
dr1("用量信息_领料部门")=drr("用量信息_领料部门")
dr1("用量信息_变更日期")=drr("用量信息_变更日期")
dr1("用量信息_下级")=drr("用量信息_下级")
dr1("供应商属性_供应商名称")=drr("供应商属性_供应商名称")
dr1("供应商属性_转换率")=drr("供应商属性_转换率")
dr1("供应商属性_采购单位")=drr("供应商属性_采购单位")
dr1("供应商属性_成份")=drr("供应商属性_成份")
dr1("款号")=drr("款号")
是不是我在数据表内将所有尺码添加进来，然后对比临时表和数据表的列，列名相同就存储。但是，尺码可以这么做，颜色可不行，颜色有几百种。
参照我们现在的系统是固定20个颜色和尺码列存储在数据表
此主题相关图片如下：111.png
此主题相关图片如下：222.png
[此贴子已经被作者于2018/8/3 16:06:26编辑过]
加好友 
发短信
Post By：2018/8/3 15:03:00 [只看该作者]
