主题：[原创]关联增加行内容

 

 第一步，父表的关联列，不能用重复的值。

 

 第二步，用sqlselect，必须先把表保存一下。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:关联项目.foxdb

 4楼就是。

 我跟你说了啊，父表的姓名列不能重复啊，要不你就不要用关联

    

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:关联项目.foxdb

1、导入之后，保存论文回执；

 

2、运行9楼例子的按钮代码。

Select Case e.DataCol.Name
    Case "论文邮箱","回执论文题目","论文申请分会场"
        Dim Filter As String = "[姓名] = '" & e.DataRow("姓名") & "'"
        DataTables("CCCM参会回执").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select

If e.DataCol.Name = "姓名" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("CCCM参会回执").Find("姓名 = '" & e.DataRow("姓名") & "'" )
    If dr Is Nothing '如果找到, 则设置各列内容
        dr = DataTables("CCCM参会回执").AddNew
        dr("姓名") = e.DataRow("姓名")
    End If
    dr("论文邮箱") = e.DataRow("论文邮箱")
    dr("回执论文题目") = e.DataRow("论文题目")
    dr("论文申请分会场") = e.DataRow("申请分会场")
End If