以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120305)

--  作者:sqplhm
--  发布时间:2018/6/12 13:17:00
--  关联问题
我添加了关联为什么在积分汇总里的姓名不会自动添加
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar



--  作者:有点甜
--  发布时间:2018/6/12 14:20:00
--  

如果要自动增加,参考

 

http://www.foxtable.com/webhelp/scr/2490.htm

 


--  作者:有点甜
--  发布时间:2018/6/12 14:24:00
--  
Select Case e.DataCol.name
    Case "身份证号"
       
        If e.newvalue <> Nothing Then
            Dim dr As DataRow = DataTables("jfhzb").Find("身份证号 = \'" & e.newvalue & "\'")
            If dr Is Nothing Then
                dr = DataTables("jfhzb").AddNew()
                dr("身份证号") = e.DataRow("身份证号")
            End If
           
        End If
End Select