以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个数据表一行数据审核之后,怎样自动结转到另一张数据表中去?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144425)

--  作者:段虎成
--  发布时间:2019/12/19 15:47:00
--  一个数据表一行数据审核之后,怎样自动结转到另一张数据表中去?

老师您好,我把我做的项目发给您。您帮我解决一个问题好么。

我要实现一个功能如下:

《增值服务报价系统》一行信息审核之后,本系统中的信息全部列或者部分列的内容自动结转到《商业摄影管理系统》中去。

比如第一行审核之后,合同编号、客户名称列和服务包超市(服务包分类、服务包名称、服务类型)列内容自动结转到商业摄影管理系统中去。

第一:我应该如何编写代码?

第二:帮助中对应的学习内容我应该参考哪一部分?

谢谢。请老师帮我写一段代码,供我学习好么,谢谢!

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


--  作者:有点蓝
--  发布时间:2019/12/19 15:53:00
--  
参考:http://www.foxtable.com/webhelp/topics/1533.htm
--  作者:有点蓝
--  发布时间:2019/12/19 15:55:00
--  
开发者密码多少?也连不到数据库。

新建一个项目,把需要处理的表导过去,在把新项目发上来

--  作者:段虎成
--  发布时间:2019/12/19 16:31:00
--  
好的老师。我马上处理。
--  作者:段虎成
--  发布时间:2019/12/19 17:10:00
--  
老师我倒进来了,您看一下能打开吧
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:联新科技.table


--  作者:有点蓝
--  发布时间:2019/12/19 17:30:00
--  
《增值服务报价系统》datacolchanged事件

Select Case e.DataCol.Name
    Case "某审核列"
        If e.NewValue = True Then
            Dim nms() As String = {"合同编号","客户信息"}
            Dim nms2() As String = {"合同编号","客户信息"}
            Dim dr As DataRow = DataTables("商业摄影管理系统").AddNew
            For i As Integer = 0 To nms.Length - 1
                dr(nms2(i)) = e.DataRow(nms(i))
            Next
        End If
End Select

--  作者:段虎成
--  发布时间:2019/12/19 17:57:00
--  
收到,谢谢老师!
--  作者:段虎成
--  发布时间:2019/12/20 15:58:00
--  

老师您好,这段代码帮我在补充一下好么?就是再增加一个功能代码:

 

取消审核时同步清除结转到商业摄影管理系统的数据。谢谢老师。


--  作者:有点蓝
--  发布时间:2019/12/20 16:00:00
--  
Select Case e.DataCol.Name
    Case "某审核列"
        If e.NewValue = True Then
            Dim nms() As String = {"合同编号","客户信息"}
            Dim nms2() As String = {"合同编号","客户信息"}
            Dim dr As DataRow = DataTables("商业摄影管理系统").AddNew
            For i As Integer = 0 To nms.Length - 1
                dr(nms2(i)) = e.DataRow(nms(i))
            Next
else
Dim dr As DataRow = DataTables("商业摄影管理系统").Find("合同编号 = \'" & e.DataRow("合同编号") & "\'")
        If dr IsNot Nothing Then
            dr.delete
        
End If
        End If
End Select

--  作者:段虎成
--  发布时间:2019/12/20 16:03:00
--  
谢谢老师!