Foxtable(狐表)用户栏目专家坐堂 → [求助]第 1 行: '=' 附近有语法错误


  共有2720人关注过本帖树形打印复制链接

主题:[求助]第 1 行: '=' 附近有语法错误

帅哥哟,离线,有人找我吗?
samlzc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1114 威望:0 精华:0 注册:2017/4/10 17:55:00
[求助]第 1 行: '=' 附近有语法错误  发帖心情 Post By:2018/8/14 16:34:00 [显示全部帖子]

.NET Framework 版本:2.0.50727.8784
Foxtable 版本:2018.7.28.1
错误所在事件:
详细错误信息:
第 1 行: '=' 附近有语法错误。

表格通过服务器同步数据 会弹出这个错误。
但是不知道具体是事件出现问题。请问如何解决

 回到顶部
帅哥哟,离线,有人找我吗?
samlzc
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1114 威望:0 精华:0 注册:2017/4/10 17:55:00
  发帖心情 Post By:2018/8/14 18:22:00 [显示全部帖子]

我也不清楚现在是什么代码有问题, 因为是这几天突然会出现。
然后我用备份文件,从新做了一次更新,但还是会出现这种情况。
错误所在事件:
详细错误信息:
怎么会不显示在哪里错误呢


 回到顶部
帅哥哟,离线,有人找我吗?
samlzc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1114 威望:0 精华:0 注册:2017/4/10 17:55:00
  发帖心情 Post By:2018/9/4 18:50:00 [显示全部帖子]

Dim msg As String = e.Message
Dim pts() As String = msg.Split("#")
Dim a As String = pts(2)
If msg.StartsWith("U#") Then '表示修改了某行
    'Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
        MessageBox.show(1)
        
        Dim dr As DataRow = DataTables(pts(1)).Find("[_Identify] = " & a )
        MessageBox.show(2)
        If dr IsNot Nothing  Then
            dr.Load()
            MessageBox.show(3)
        End If
    End If


现在发现错误出现在  执行到 2 和 3 之间

请问是什么问题

 回到顶部
帅哥哟,离线,有人找我吗?
samlzc
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1114 威望:0 精华:0 注册:2017/4/10 17:55:00
  发帖心情 Post By:2018/9/4 21:21:00 [显示全部帖子]

审核.慧 2018-09-04 17:57:40     A#cbb#14466
审核.慧 2018-09-04 17:57:47     D#cbb#14466
审核.慧 2018-09-04 17:58:01     U#cbb#14463
审核.慧 2018-09-04 17:59:48     A#cbb#14467
审核.慧 2018-09-04 17:59:48     A#订单表#2375
审核.慧 2018-09-04 17:59:55     U#cbb#14467
审核.慧 2018-09-04 17:59:59     A#cbb#14468
审核.慧 2018-09-04 18:00:03     A#cbb#14469
审核.慧 2018-09-04 18:00:04     A#cbb#14470
审核.慧 2018-09-04 18:00:14     D#cbb#14470


以上是传输过来的生成的信息表

ReceivedMessage 事件
Dim drr As DataRow = DataTables("信息").AddNew
drr("发送者") = iif(e.UserName > "",e.UserName,"服务器")
drr("时间") = Date.Now()
drr("信息") = e.Message


Dim msg As String = e.Message
Dim pts() As String = msg.Split("#")
Dim a As String = pts(2)
If msg.StartsWith("U#") Then '表示修改了某行
    'Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
        MessageBox.show(1)
        
        Dim dr As DataRow = DataTables(pts(1)).Find("[_Identify] = " & a )
        MessageBox.show(2)
        If dr IsNot Nothing  Then
            dr.Load()
            MessageBox.show(3)
        End If
    End If
ElseIf msg.StartsWith("A#") Then '表示增加了行
    'Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
        MessageBox.show(4)
        DataTables(pts(1)).AppendLoad("[_Identify] =" & a) '追载新增加的行.
        MessageBox.show(5)
    End If
ElseIf msg.StartsWith("D#") Then '表示删除了行
    'Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
        DataTables(pts(1)).RemoveFor("[_Identify] =" & a) '移除行
    End If
End If

结果执行 
1 正常
2  正常
弹出错误窗口:第 1 行: '=' 附近有语法错误    关闭后
3 正常
[此贴子已经被作者于2018/9/4 21:23:34编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
samlzc
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1114 威望:0 精华:0 注册:2017/4/10 17:55:00
  发帖心情 Post By:2018/9/5 9:51:00 [显示全部帖子]

这样测试后,新增行的追载是无问题的
但是修改就还是一样 
执行
1
2
出现错误  点击关闭
3

而且修改的内容没有更新   dr.load() 应该没运行

 回到顶部
帅哥哟,离线,有人找我吗?
samlzc
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1114 威望:0 精华:0 注册:2017/4/10 17:55:00
  发帖心情 Post By:2018/9/5 10:19:00 [显示全部帖子]

项目及表格的afterLoad事件、currentChanged事件都没有代码执行

 回到顶部
帅哥哟,离线,有人找我吗?
samlzc
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1114 威望:0 精华:0 注册:2017/4/10 17:55:00
  发帖心情 Post By:2018/9/5 10:27:00 [显示全部帖子]

对喔,发现在任何表中 点击同步行 都会出现这个错误


 回到顶部
帅哥哟,离线,有人找我吗?
samlzc
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1114 威望:0 精华:0 注册:2017/4/10 17:55:00
  发帖心情 Post By:2018/9/5 10:51:00 [显示全部帖子]

在哪里看外部表的设置呢?
外部数据表?
外部数据源?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:截图.rar




 回到顶部
帅哥哟,离线,有人找我吗?
samlzc
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1114 威望:0 精华:0 注册:2017/4/10 17:55:00
  发帖心情 Post By:2018/9/5 11:36:00 [显示全部帖子]

这样可以,但是会不停的删除行,再新增行。而且新增行出现在表格最下方,这样使用编辑起来不方便啊

[此贴子已经被作者于2018/9/5 11:36:19编辑过]

 回到顶部