Foxtable(狐表) → 用户栏目 → 专家坐堂 → 两个表的数据如何自动更新？


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

主题：两个表的数据如何自动更新？
帅哥哟，离线，有人找我吗？
Hyphen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/11/10 8:37:00 [显示全部帖子]

代码没有问题，用这个方法跟踪看是哪一步的问题http://www.foxtable.com/help/topics/1485.htm

 

 

另，请以后代码段尽量直接拷贝进来，不要截图。不然解决问题还得重新敲一遍。
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/11/12 8:50:00 [显示全部帖子]

Select Case e.DataCol.name
   

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


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/11/14 9:48:00 [显示全部帖子]

代码仍然是放在DataChanged事件中，加个判断
 
Select Case e.DataCol.name
Case "产品编号"
 
If e.NewValue Is Nothing Then

        Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}
        For Each s As String In ary
            Dim dr As DataRow = DataTables(s).Find("产品编号= '" & e.DataRow("产品编号") & "'")
            If dr IsNot Nothing Then
                dr.Delete()
            End If
        Next
 
 End If
 
.........
 
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/11/14 11:16:00 [显示全部帖子]

1. 一个代码段内尽量避免重复定义同一个名称，ary名称重复使用了

 

2. 判断几个名称就加几个判断

 

If e.NewValue Is Nothing AndAlso e.DataRow.IsNull("产品名称") Then

 

同样，在Case "产品名称"下面也要做类似的判断

 

--------------------------------------------------

初学者建议先看一下视频教程

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

[此贴子已经被作者于2015/11/14 11:15:57编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 5 次数据查询