主题：窗口运行错误

老师，劳烦看看问题怎么解决

此主题相关图片如下：运行错误.jpg

我的”一次码“列的数据（字符型）是通过下面程序实现写入数据表的
 r("一次码") = format(i,"000")
 
在查询窗口中，“一次码”的复选框的事件代码如下：
Dim cmb As WinForm.ComboBox = e.Sender
 Dim str As  String = e.Form.Controls("Comhl").Value
 cmb.ComboList = DataTables("报警设备定义").GetComboListString("一次码", "回路号 = '" &  str & "'")

数据来源“字典”表中的”设备号“列（字符型）

按“一次码”查询的代码如下：

With e.Form.Controls("Combm")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter &= "一次码 = '" & .Value & "'"
    End If
End With

      为什么说我的数据源有问题呢？

这些代码看不出什么问题，请贴出事件完整代码