Foxtable(狐表)用户栏目专家坐堂 → 调用查询表时报错没有某一列


  共有2601人关注过本帖平板打印复制链接

主题:调用查询表时报错没有某一列

帅哥哟,离线,有人找我吗?
Tough
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:163 威望:0 精华:0 注册:2021/9/23 10:38:00
调用查询表时报错没有某一列  发帖心情 Post By:2021/9/23 10:45:00 [只看该作者]

'获取大膜生产计划单列表数据
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)的窗口,这是为什么呢,求各位大神帮帮忙啊

 回到顶部