| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 代码执行出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122925) |
| -- 作者：cjl333333333 -- 发布时间：2018/8/4 17:36:00 -- 代码执行出错 \'DataTables("词典").LoadFilter = "[类型] = \'级别名称\' And [上限] >= \'" & Tables("客户资料").Current("得分") & "\' And [下限]<= \'"& Tables("客户资料").Current("得分") &"\'" \'DataTables("词典").Load Dim DR As DataRow = DataTables("词典").Find("[类型] = \'级别名称\' And [上限] >= \'" & Tables("客户资料").Current("得分") & "\' And [下限]<= \'"& Tables("客户资料").Current("得分") &"\'") Output.Show("客户:" & dr("名称")) 上面这段代码红色的可以执行，但下面这段代码就一直会出现（未将对象设置到对象实例）这种错误，那位大神可以提点指点吗？我系统里还不止这一处会出现这个问题整个系统有好几个表出现这情况，但一直找不到原因。 |
| -- 作者：有点蓝 -- 发布时间：2018/8/4 17:38:00 -- Dim DR As DataRow = DataTables("词典").Find("[类型] = \'级别名称\' And [上限] >= \'" & Tables("客户资料").Current("得分") & "\' And [下限]<= \'"& Tables("客户资料").Current("得分") &"\'") if dr isnot nothing then Output.Show("客户:" & dr("名称")) end if
|
| -- 作者：cjl333333333 -- 发布时间：2018/8/4 17:46:00 -- 如果了 判断语句他不会出错，但也筛不出记录，但实际加载同样条件是有记录的 |
| -- 作者：有点蓝 -- 发布时间：2018/8/4 17:50:00 -- 应该是数据没有加载把，改为sqlfind DataTables("词典").SqlFind("[类型]
|
| -- 作者：cjl333333333 -- 发布时间：2018/8/4 17:50:00 -- Dim DR As DataRow = DataTables("词典").Find("[类型] = \'级别名称\' And [上限] >= \'" & Tables("客户资料").Current("得分") & "\' And [下限]<= \'"& Tables("客户资料").Current("得分") &"\'") If DR Is Nothing Then Output.Show("记录为空") Else Output.Show("客户:" & dr("名称")) End If 我试着执行这语名他也任何情况都不显示，真不千为何，老师求解
|
| -- 作者：有点蓝 -- 发布时间：2018/8/4 17:52:00 -- 看4楼 |
| -- 作者：cjl333333333 -- 发布时间：2018/8/4 17:54:00 -- 真的是，好了，谢谢老师 |