'获取大膜生产计划单列表数据
Dim lstFilter As String = args(0) '列表条件
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
'抽取数据(库存匹配)
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()
DataTables("大膜生产计划单列表").DataCols.Add("配方名称",Gettype(String),50)
DataTables("大膜生产计划单列表").DataCols.Add("工艺序号",Gettype(String),50)
MessageBox.Show(1)
For Each dc As DataCol In DataTables("大膜生产计划单列表").DataCols
Try
If

dc.Name.Contains("配方名称") Or

dc.Name.Contains("工艺序号") Then
Continue For
End If
If dc.Name.Contains("technologyCode") Or dc.Name.Contains("formulaCode") Then
Continue For
End If
If dc.Name.Contains("bPrintOrder") Then
dc.Caption = "是否打印配方工艺"
Continue For
End If
dc.Caption = DataTables("sc_BigFilmMakeJoin").DataCols(dc.Name).Caption
Catch ex As Exception
Continue For
MessageBox.Show(ex.Message)
End Try
Next
MessageBox.Show(2)
有时候调用这个函数的时候,会报错说没有“配方名称”的列,有时候有不报错,而且我添加 MessageBox.Show(1)来调试,发现报错之前并没有调用的这个 MessageBox.Show(1)的窗口,这是为什么呢,求各位大神帮帮忙啊