- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口运行错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150919)
-- 发布时间：2020/6/10 22:28:00
-- 窗口运行错误
老师，劳烦看看问题怎么解决
此主题相关图片如下：运行错误.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 & "\'")
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
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "一次码 = \'" & .Value & "\'"
End If
End With
为什么说我的数据源有问题呢？
[此贴子已经被作者于2020/6/10 22:31:46编辑过]
-- 发布时间：2020/6/11 8:36:00
--
更新foxtable到最新版本
这些代码看不出什么问题，请贴出事件完整代码
-- 发布时间：2020/6/18 23:00:00
--
谢谢老师了，原因是我的引用数据源出了问题。