For Each r As Row In Tables("打印标签_Table1").Rows
Dim clName() As String = {"18K金", "PT925", "925银"}
For i As Integer = 0 To clName.Length - 1
dr = DataTables("成品管理").AddNew
dr("戒托_材质") = clName(i)
dr("成品类型") = "样品"
dr("产品名称") = r("产品名称")
dr("蜡重") = r("蜡重")
dr("产品类别") = r("产品类别")
dr("款号") = r("款号")
next
这样我写 戒托材质没有一点问题
但是我加上下面几句代码:
dr("戒托_条形码") = r("戒托_条形码")
dr("戒托_主石大小") = r("戒托_主石大小")
dr("戒托_可配主石大小") = r("戒托_可配主石大小")
dr("戒托_手寸") = r("戒托_手寸")
dr("戒托_颜色") = r("戒托_颜色")
dr("主石_条形码") = r("主石_条形码")
也就是这样写:
For Each r As Row In Tables("打印标签_Table1").Rows
Dim clName() As String = {"18K金", "PT925", "925银"}
For i As Integer = 0 To clName.Length - 1
dr = DataTables("成品管理").AddNew
dr("戒托_材质") = clName(i)
dr("成品类型") = "样品"
dr("产品名称") = r("产品名称")
dr("蜡重") = r("蜡重")
dr("产品类别") = r("产品类别")
dr("款号") = r("款号")
dr("戒托_条形码") = r("戒托_条形码")
dr("戒托_主石大小") = r("戒托_主石大小")
dr("戒托_可配主石大小") = r("戒托_可配主石大小")
dr("戒托_手寸") = r("戒托_手寸")
dr("戒托_颜色") = r("戒托_颜色")
dr("主石_条形码") = r("主石_条形码")
next
材质变成了 全部为18K金了 这是怎么回事? 我想不明白了,只不过是多加了几个列而已.
[此贴子已经被作者于2016/4/27 10:17:36编辑过]
加好友 
发短信
Post By：2016/4/27 10:16:00 [只看该作者]
