- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- datatable.load 有错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146552)
-- 发布时间：2020/2/26 12:14:00
-- datatable.load 有错误
老师好。我在窗口添加SQLTable表，下面代码是在 Button1 的 click 事件中。运行时有错误：
（使用内部表，设置的select语句 select[_identify],[委托编号], 。。。。。。 应该没有问题，因为该表用filter语句时一切正常，没有发现问题）
Dim tb1 As Table= Tables("任务查询_table1")
Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dw As String = cmb1.Value
tb1.DataTable.LoadFilter ="[委托单位]= \'" & dw & "\'"
tb1.DataTable.load ‘=======================该行代码有错误。错误提示：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.12.18
错误所在事件：加载[任务查询_Table1]失败!
详细错误信息：
SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确
请老师帮忙看看。谢谢！
[此贴子已经被作者于2020/2/26 12:51:23编辑过]
-- 发布时间：2020/2/26 12:24:00
--
语法错了 : DataTable("订单").LoadFilter
你应该改为:
DataTable(tb1.DataTable.Name).LoadFilter="[委托单位]= \'" & dw & "\'"
DataTable(tb1.DataTable.Name).Load
-- 发布时间：2020/2/26 13:38:00
--
DataTables(tb1.DataTable.Name).LoadFilter="[委托单位]= \'" & dw & "\'" DataTables(tb1.DataTable.Name).Load 还是不行啊，错误提示一样。 |
-- 发布时间：2020/2/26 14:16:00
--
生成Tables("任务查询_table1")的SQL发上来看看
-- 发布时间：2020/2/26 15:00:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
代码在文本文档中
-- 发布时间：2020/2/26 15:16:00
--
msgbox("[委托单位]= \'" & dw & "\'") 显示什么内容
-- 发布时间：2020/2/26 16:33:00
--
显示的是： [委托单位]=‘北人智能装备科技有限公司’
-- 发布时间：2020/2/26 17:12:00
--
窗口afterload写了什么代码。其它地方有没有使用fill，DataSource重新绑定了窗口表数据
-- 发布时间：2020/2/26 17:24:00
--
老师好。下面是窗口的afterload 的代码。其他地方没有用fill，也没有用DataSource 绑定窗口表数据。
Tables("任务查询_Table1").SetColVisibleWidth( "委托编号|79|委托单位|245|产品依据|121|处理工艺|167|成型工艺|141|样品状态|257|任务属性|238" )
Tables("任务查询_Table2").SetColVisibleWidth("委托编号|80|样品编号|91|样品名称|195|材料牌号|82|规格|223|检测_内容|398|加工_内容|122|坯料备注|143")
Tables("任务查询_Table3").SetColVisibleWidth("样品编号|97|试样编号|110|检测_类别|101|检测_数量|34|检测_内容|399|检测_要求|150|检测_标准|116|检测_温度|45|加工_内容|86|加工_数量|36|加工_尺寸|126|加工_方位|81|加工_其他要求|95|检测费|39|加工费|42|专业|39|备注|107")
For Each dtb As DataTable In DataTables
dtb.AddUserStyle("style_click", Color.SkyBlue, Color.red) \'-----------------------单击某一行
dtb.AddUserStyle("style_选中", Color.yellow, Color.crimson) \'-----------------------
dtb.AddUserStyle("style_警示", Color.paleturquoise, Color.black) \'-----------------------
dtb.adduserstyle("style_查询",color.RoyalBlue,Color.white)
Next
此主题相关图片如下：捕获.png
[此贴子已经被作者于2020/2/26 17:24:31编辑过]
-- 发布时间：2020/2/26 17:42:00
--
看不出什么问题，请上传实例测试