Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]双表对应的行自动更新


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

主题：[求助]双表对应的行自动更新
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/29 11:35:00 [显示全部帖子]

帮助本来就有。

 

http://www.foxtable.com/help/topics/2490.htm

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/29 16:21:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "报告表单编号"
        Dim dr As DataRow
        If e.oldvalue = Nothing Then
            dr = DataTables("T_TestF").Find("报告表单编号 = '" & e.newvalue & "'")
        Else
            dr = DataTables("T_TestF").Find("报告表单编号 = '" & e.oldvalue & "'")
        End If
        If dr Is Nothing Then
            dr = DataTables("T_TestF").AddNew()
            dr("报告表单编号") = e.DataRow("报告表单编号")
            dr("报告编号") = e.DataRow("报告编号")
            dr("表单编号") = e.DataRow("表单编号")
        Else
            dr("报告表单编号") = e.DataRow("报告表单编号")
        End If
        dr.save
    Case "报告编号","表单编号"
        Dim dr As DataRow = DataTables("T_TestF").Find("报告表单编号 = '" & e.DataRow("报告表单编号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
            dr.save
        End If
End Select

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/29 18:07:00 [显示全部帖子]

肯定能实时更新的，不然你做个具体例子发上来测试，说明怎么不能实时更新。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/29 18:32:00 [显示全部帖子]

不要用表达式列。

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目.foxdb
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 6 次数据查询