再取值就会出错。MGk = ""
Dim VmbtName As String
vmbtname = MbtName
If mtbf.Rows.Count > 0 Then Mstr = Mtbf.Current("产品型号")
Forms("产品查询").open()
'Dim Vsh() As new String,Vwl() As String,Vsl() As String
Dim Vsh As new List(of String)
Dim Vwl As new List(of String)
Dim Vsl As new List(of String)
Dim i As Integer
MbtName = vmbtname
For Each dr1 As DataRow In DataTables("BOM").Select("成品编码 = '" & MGk & "'")
'msgbox(dr1("物料编码"))
vsh.Add(dr1("序号"))
vwl.add(dr1("物料编码"))
vsl.add(dr1("数量"))
Next
Dim Vwls() As String
Vwls = vwl.ToArray()
For i = 1 To vwl.Count
Dim nr As Row = mtbf.AddNew()
nr("成品编码") = mbtname
nr("物料编码") = vwls(i)
Next
mtbf.Filter = "成品编码 = '" & mbtname & "'"
加好友 
发短信
Post By：2015/7/7 20:07:00 [显示全部帖子]
