以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]通用设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90550)
--  作者：wusim
--  发布时间：2016/9/16 17:05:00
--  [求助]通用设置
当我增加数据时，能从设置表中相应的字段自动填充数据？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:通用设置.rar
--  作者：wusim
--  发布时间：2016/9/16 19:25:00
--  
顶一下
--  作者：鲁吉
--  发布时间：2016/9/16 19:42:00
--  
当然可以
--  作者：有点蓝
--  发布时间：2016/9/17 10:03:00
--  

Select Case e.DataCol.Name
    Case "安装单位"
        If e.NewValue Is Nothing Then 
            e.DataRow("告知联系人") = Nothing 
            ......清空其它列
        Else
            Dim dr As DataRow
            dr = DataTables("设置表").Find("[安装公司] = \'" & e.NewValue & "\'")
            If dr IsNot Nothing Then 
                e.DataRow("告知联系人") = dr("告知联系人")
                ......其它列赋值
            End If
        End If
End Select