主题：代码报错

提示错误，说明你列名写错了。去看看正确的列名是什么

 

http://www.foxtable.com/webhelp/scr/0193.htm

 

参考代码

 

Dim cs() As String = {"第一列", "第二列", "第三列"}
Dim ls As new List(of String)
For Each dr As DataRow In DataTables("表A").Select("")
    For Each c As String In cs
        If dr(c) <> Nothing AndAlso ls.Contains(dr(c)) = False Then
            ls.add(dr(c))
        End If
    Next
Next
Dim str As String = String.Join("|", ls.ToArray)
msgbox(str)

cmb3 .ComboList = str

msgbox(filter) 弹出什么？

Dim nms() As String = {"产品型号","工序号", "领取日期" ,"返回日期"}
Dim sps() As String = {"'","'","#","#"}
Dim bjf() As String = {"=","=","=","="}
Dim fds() As String = {"产品型号","工序号","日期","日期"}
Dim Filter As String
For i As Integer = 0 To nms.Length - 1
    If e.Form.Controls(nms(i)).value IsNot Nothing Then
        If filter > "" Then
            filter = filter & " and "
        End If
        filter =filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
    End  If
Next
With e.Form.Controls( "领取人")
    If .text
        If filter > "" Then
            filter = filter & " and "
        End If
        filter=filter & "(第一份_领取人 = '" & .value & "' or 第二份_领取人 = '" & .value & "')"
    End If
End With
If e.Form.Controls( "已还").checked = True
    If filter > "" Then
        filter = filter & " and "
    End If
    filter=filter & " 已还=true"
End If
If e.Form.Controls( "未还").checked = True
    If filter > "" Then
        filter = filter & " and "
    End If
    filter=filter & " (未还 =false or 未还 is null)"
End If
Tables("工艺卡片发放记录").filter = filter

不会做就请上传实例。

Dim nms() As String = {"产品型号","工序号"}
Dim sps() As String = {"'","'"}
Dim bjf() As String = {"=","="}
Dim fds() As String = {"产品型号","工序号"}
Dim Filter As String
For i As Integer = 0 To nms.Length - 1
    If e.Form.Controls(nms(i)).value IsNot Nothing Then
        If filter > "" Then
            filter = filter & " and "
        End If
        filter =filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
    End  If
Next
With e.Form.Controls( "第一份_领取人")
    If .text > "" Then
        If filter > "" Then
            filter = filter & " and "
        End If
        filter=filter & "(第一份_领取人 = '" & .value & "' or 第二份_领取人 = '" & .value & "' or 第三份_领取人 = '" & .value & "')"
    End If
End With
With e.Form.Controls( "领取日期")
    If .text > "" Then
        If filter > "" Then
            filter = filter & " and "
        End If
        filter=filter & "(第一份_领取日期 = '" & .value & "' or 第二份_领取日期 = '" & .value & "' or 第三份_领取日期 = '" & .value & "')"
    End If
End With
With e.Form.Controls( "返回日期")
    If .text > "" Then
        If filter > "" Then
            filter = filter & " and "
        End If
        filter=filter & "(第一份_返回日期 = '" & .value & "' or 第二份_返回日期 = '" & .value & "' or 第三份_返回日期 = '" & .value & "')"
    End If
End With
If e.Form.Controls( "已还").checked = True
    If filter > "" Then
        filter = filter & " and "
    End If
    filter=filter & " 已还=true"
End If
If e.Form.Controls( "未还").checked = True
    If filter > "" Then
        filter = filter & " and "
    End If
    filter=filter & " (未还 =false or 未还 is null)"
End If
Tables("工艺卡片发放记录").filter = filter
msgbox(filter)