以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]非关联表多列相同,跨表修改  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126219)

--  作者:湛江智
--  发布时间:2018/10/16 19:21:00
--  [求助]非关联表多列相同,跨表修改

非关联表多列相同,跨表修改

表A修改学时,假如表B中的 学年、学期、课程 这3列同表A值一样,表B中的学时全部同步更新,求助

 


图片点击可在新窗口打开查看此主题相关图片如下:非关联表多列相同,跨表修改.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:多条件跨表引用.table

[此贴子已经被作者于2018/10/16 19:21:47编辑过]

--  作者:有点蓝
--  发布时间:2018/10/16 20:38:00
--  
表A,datacolchanged

Select Case e.DataCol.Name
    Case "学时"
        If e.DataRow.IsNull("学时") = False Then
            Dim dr As DataRow
            DataTables("表B").ReplaceFor("学时",e.NewValue,"课程 = \'" & dr("课程") & "\' And 年级 = \'" & dr("年级") & "\' And 学期 = \'" & dr("学期") & "\'")
        End If
End Select

--  作者:湛江智
--  发布时间:2018/10/16 22:20:00
--  回复:(有点蓝)表A,datacolchangedSelect Case e.D...
大师, 上面代码无效,辛苦再看看了


--  作者:有点蓝
--  发布时间:2018/10/16 22:28:00
--  
Select Case e.DataCol.Name
    Case "学时"
        If e.DataRow.IsNull("学时") = False Then
            Dim dr As DataRow = e.DataRow
            DataTables("表B").ReplaceFor("学时",e.NewValue,"课程 = \'" & dr("课程") & "\' And 年级 = \'" & dr("年级") & "\' And 学年 = \'" & dr("学期") & "\'")
        End If
End Select

--  作者:湛江智
--  发布时间:2018/10/16 22:40:00
--  回复:(有点蓝)Select Case e.DataCol.Name? &...

窗口里修改还是报错,直接在表A里也不可以修改 学时

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:多条件跨表引用.table


图片点击可在新窗口打开查看此主题相关图片如下:报错.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/10/16 22:40:06编辑过]

--  作者:有点蓝
--  发布时间:2018/10/16 22:52:00
--  
我测试没有问题。什么步骤测试会出错?
--  作者:有点蓝
--  发布时间:2018/10/16 22:53:00
--  
学时列类型有问题,只能输入0~255之间的数字.
--  作者:湛江智
--  发布时间:2018/10/16 23:10:00
--  回复:(有点蓝)学时列类型有问题,只能输入0~255之间...

如果不是0-255,

字符类型,代码怎么改呢?


--  作者:有点蓝
--  发布时间:2018/10/16 23:11:00
--  
不需要改