Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]非关联表数据同步问题


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

主题：[求助]非关联表数据同步问题
帅哥哟，离线，有人找我吗？
jyh7081
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00 		[求助]非关联表数据同步问题  发帖心情 Post By：2017/8/16 23:00:00 [只看该作者]

“数据表”[当事人]列中的内容包括：原告、被告、第三人（有些没有），以半角分号分隔；
'被告：'后面的字符串，当有多个被告时以半角逗号分隔；

我想在“数据表”新增行时，“被告分解表”相应增加行，规则是：
1、按照被告的个数，确定新增行数；
2、将多个被告依次填入“被告分解表”新增行的[被告]列；
3、将“数据表”[当事人]列中'原告：'后面的字符串，填入[原告]列；'第三人：'后面的字符串，填入[第三人]列。



图片点击可在新窗口打开查看此主题相关图片如下：image 1.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：image 2.png
图片点击可在新窗口打开查看

附件：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:表关联.table






[此贴子已经被作者于2017/8/16 23:01:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/16 23:19:00 [只看该作者]

Select Case e.DataCol.name
    Case "案号"
       
    Case "当事人"
        Dim str As String = e.DataRow("当事人")
        Dim ary As String() = str.split(";")
        DataTables("被告分解表").DeleteFor("案号 = '" & e.DataRow("案号") & "'")
        If ary.length >= 2 Then
            For Each s As String In ary(1).replace("被告:", "").split(",")
                Dim dr = DataTables("被告分解表").AddNew()
                dr("案号") = e.DataRow("案号")
                dr("原告") = ary(0).split(":")(1)
                dr("被告") = s
                If ary.length = 3 Then
                    dr("第三人") = ary(2).split(":")(1)
                End If
            Next
        End If
       
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
jyh7081
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00 		  发帖心情 Post By：2017/8/17 8:13:00 [只看该作者]

我在“数据表”的DataRowDeleting事件中写入下列代码，当数据表删除一行时，“被告分解表”删除相同案号的所有行，但代码不能保存，请老师指教，谢谢！

 

Dim dr As DataRow = DataTables("被告分解表").Select("[案号] = '" & e.DataRow("案号") & "'")
If dr IsNot Nothing Then
    dr.Delete()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/17 9:31:00 [只看该作者]

写代码

 

DataTables("被告分解表").DeleteFor("案号 = '" & e.DataRow("案号") & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
jyh7081
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00 		  发帖心情 Post By：2017/8/22 16:42:00 [只看该作者]

我想把代码放入表的DataRowAdded事件中，提示：

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg
图片点击可在新窗口打开查看

 

应该怎样改下代码？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/22 16:56:00 [只看该作者]

以下是引用jyh7081在2017/8/22 16:42:00的发言：

我想把代码放入表的DataRowAdded事件中，提示：

 

应该怎样改下代码？

 

你逻辑理清楚了吗？你DataRowAdded的时候各个列都没有赋值，怎么获取内容到另一个表？
 回到顶部
帅哥哟，离线，有人找我吗？
jyh7081
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00 		  发帖心情 Post By：2017/8/22 18:02:00 [只看该作者]

"DataRowAdded

增加一行后执行，此时新增行(DataRow)已经真正增加到DataTable中。"


我的过程是：导入数据（新增行），触发“数据表”DataRowAdded事件，将新增行数据赋值给“被告分解表”。

“数据表”应该有内容呀
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/22 19:11:00 [只看该作者]

 那代码也要写在datacolchanged事件。

 回到顶部
帅哥哟，离线，有人找我吗？
jyh7081
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00 		  发帖心情 Post By：2017/8/22 20:33:00 [只看该作者]

代码我是写在DataColChanged中的。但是在运行下列代码后，“被告分解表”中的行先被删除，然后又重新写入了。
后果是该行原先录入的信息被清空了，需要再次录入。
For Each dc As DataCol In DataTables("数据表").datacols    '重置所有列
    dc.RaiseDataColChanged()
Next

因此，我想去掉下面这句代码：
DataTables("被告分解表").DeleteFor("案号 = '" & e.DataRow("案号") & "'")
然后加个判断：如果“数据表”变动的[案号]值  在“被告分解表”的[案号]中是不存在的，才执行后面的代码。
应该怎样写。谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107335 积分：545942 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/8/22 20:48:00 [只看该作者]

Select Case e.DataCol.name
    Case "案号"
        
    Case "当事人"
        Dim str As String = e.DataRow("当事人")
        Dim ary As String() = str.split(";")
        If ary.length >= 2 Then
            Dim bg As String = ary(1).replace("被告:", "")
            DataTables("被告分解表").DeleteFor("案号 = '" & e.DataRow("案号") & "' and 被告 in ('" & bg.Replace(",","','") & "')")

            For Each s As String In bg.Split(",")
                Dim dr = DataTables("被告分解表").AddNew()
                dr("案号") = e.DataRow("案号")
                dr("原告") = ary(0).split(":")(1)
                dr("被告") = s
                If ary.length = 3 Then
                    dr("第三人") = ary(2).split(":")(1)
                End If
            Next
        End If
        
End Select
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询