哪一个
MessageBox.Show可以弹出来？
'获取大膜生产计划单列表数据
Dim lstFilter As String = args(0) '列表条件
MessageBox.Show(lstFilter)
If lstFilter = "" Then
lstFilter = "isnull(bPrint,0) = 0 and isnull(bComplete,0) = 0"
Else
lstFilter = "isnull(bPrint,0) = 0 and isnull(bComplete,0) = 0 and " & lstFilter
End If
MessageBox.Show(0)
'抽取数据(库存匹配)
Dim jb As new SQLJoinTableBuilder("大膜生产计划单列表","V_sc_BigFilmMake_List")
jb.ConnectionName = "DB"
jb.AddCols("_Identify","iID","cCode","dDate","cMachineCode","cTeamCode","cType","cInvCode","cInvName","iThick","iWidth","iLength","cNo","iMakeOrder","bComplete","bPrintOrder","iCompleteQuantity","dDownLineDate","dDownLineDateTime","cBarcode","iWeight","bPrint","cVerifier","dMakeDate","formulaCode","technologyCode")
'jb.AddCols("配方名称","工艺序号")
jb.Filter = lstFilter
jb.Build()
MessageBox.Show(1)
DataTables("大膜生产计划单列表").DataCols.Add("配方名称",Gettype(String),50)
DataTables("大膜生产计划单列表").DataCols.Add("工艺序号",Gettype(String),50)
MessageBox.Show(2)
加好友 
发短信
Post By：2021/9/23 10:51:00 [显示全部帖子]
