Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]跨表引用继承更新


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

主题：[求助]跨表引用继承更新
帅哥哟，离线，有人找我吗？
ntqhj
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：438 积分：2664 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/1 15:05:00 [只看该作者]

我的ReceivedMessage事件：老师帮判断
Dim dr As DataRow = DataTables("信息").AddNew
dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")
dr("时间") = Date.Now()
dr("信息") = e.Message

Dim msg As String = e.Message
If msg.StartsWith("U#") Then '表示修改了某行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
        Dim dr1 As DataRow = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
        If dr1 IsNot Nothing  Then
            dr1.Load() '重新加载此行
        End If
    End If
ElseIf msg.StartsWith("A#") Then '表示增加了行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
         DataTables(pts(1)).AppendLoad("[_Identify] = " &  pts(2)) '追载新增加的行.
    End If
ElseIf msg.StartsWith("D#") Then '表示删除了行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
         DataTables(pts(1)).RemoveFor("[_Identify] = "  & pts(2)) '移除行
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/1 15:10:00 [只看该作者]

调试
Dim msg As String = e.Message
msgbox(msg)
If msg.StartsWith("U#") Then '表示修改了某行
    Dim pts() As String = msg.Split("#")
msgbox("pts.Length=" & pts.Length)
    If pts.Length = 3 Then
        Dim dr1 As DataRow = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
        If dr1 IsNot Nothing  Then
msgbox("Load1")
            dr1.Load() '重新加载此行
msgbox("Load2")
        End If
    End If
ElseIf msg.StartsWith("A#") Then '表示增加了行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
msgbox("AppendLoad1")
         DataTables(pts(1)).AppendLoad("[_Identify] = " &  pts(2)) '追载新增加的行.
msgbox("AppendLoad2")
    End If
ElseIf msg.StartsWith("D#") Then '表示删除了行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
msgbox("RemoveFor1")
         DataTables(pts(1)).RemoveFor("[_Identify] = "  & pts(2)) '移除行
msgbox("RemoveFor2")
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：438 积分：2664 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/1 15:30:00 [只看该作者]

A、B两台电脑，分别修改为老师的代码，a电脑运行，b电脑提示：U#接单明细表#2921  、pts.length=3  、load1   load2  
 U#接单明细表#1981    pts.length=3 load1   load2    


U#接单明细表#363   pts.length=3      load1     load2   U#接单明细表#3634    pts.length=3  、  load1   load2   
 U#接单明细表#799     pts.length=3     load1     load2      U#接单明细表#136  反复循环，全部数据的状态下点保存，提示很多条
[此贴子已经被作者于2022/4/1 15:48:05编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/1 15:51:00 [只看该作者]

那么运行提示完毕，有没有闪退？

如果嫌msgbox提示框测试麻烦，可以改为使用日志记录
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：438 积分：2664 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/1 15:58:00 [只看该作者]

只有2条记录下执行，可以完成，没有闪退。全部数据下，似乎每条记录都有提示。问题在哪里？该如何调整啊
[此贴子已经被作者于2022/4/1 16:10:07编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/1 16:11:00 [只看该作者]

加了调试代码，肯定每条记录都有提示。所有提示关闭后，项目会不会闪退？

如果嫌msgbox提示框测试麻烦，可以改为使用日志记录
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：438 积分：2664 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/1 16:25:00 [只看该作者]

改为使用日志记录 如何改？目前使用msgbox提示框测试，可看出似乎每条记录都要执行，提示信息一样，就是记录号不同

 回到顶部
帅哥，在线噢！
有点蓝
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/1 16:29:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0435.htm

如果是商业版，可以直接打开命令窗口，使用output.show调试
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：438 积分：2664 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/1 16:52:00 [只看该作者]

output.show调试不会呢，老师可否帮我写下代码，运行完成我将信息发给老师，就目前提供的信息老师还能知道问题出在哪里吗？我实在是水平有限呢。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/1 16:54:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1485.htm

msgbox
改为
output.show
即可
 回到顶部
总数 58 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询