以文本方式查看主题

-  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=130332)

--  作者:bashanren
--  发布时间:2019/1/18 23:44:00
--  [求助]在多值字段单元格选择多值后明细表增行问题!

各位老师晚上辛苦!!

项目中的“资质证书”表的“证书专业”列为多值字段,且为多值字段设置了“证书专业”明细表。

目标:在多值字段中选中值后,在明细表“证书专业明细”表中根据前面选定的每一个值增一行,并将选定值分别填入新增行的“证书专业”列。

谢谢各位老师。


--  作者:有点蓝
--  发布时间:2019/1/19 8:53:00
--  
“资质证书”表datacolchanged

If e.DataCol.Name= "证书专业"
    If e.NewValue > "" Then
        For Each zs As String In e.NewValue.split(",")
            Dim dr As DataRow = DataTables("证书专业明细").Find("证书专业=\'" & zs & "\'")
            If dr Is Nothing then
                dr = DataTables("证书专业明细").AddNew
                dr("证书专业") = zs
            End If
        Next
    End If
End If

--  作者:bashanren
--  发布时间:2019/1/19 14:34:00
--  
谢谢“蓝”老师,但由于这段代码拒绝了重复内容的输入,所在,我略改了一下:目的是想同一个人的“证书专业”不再重复输入,可运行后提示“Long”转换问题,我查了列属性都是“字符”形的,不存在Long的问题,还请老师指导,谢谢!!
If e.DataCol.Name= "证书专业"
    If e.NewValue > "" Then
        For Each zs As String In e.NewValue.split(",")
dim r as datarow = e.datarow
dim xm as string = r("姓名")
            Dim dr As DataRow = DataTables("证书专业明细").Find("证书专业=\'" & zs & "\'" and "姓名=\'" & xm & "\'")
            If dr Is Nothing then
                dr = DataTables("证书专业明细").AddNew
                dr("证书专业") = zs
            End If
        Next
    End If
End If

--  作者:有点蓝
--  发布时间:2019/1/19 14:47:00
--  
这个帮助建议仔细看10遍:http://www.foxtable.com/webhelp/scr/1284.htm

Dim dr As DataRow = DataTables("证书专业明细").Find("证书专业=\'" & zs & "\' and 姓名=\'" & xm & "\'")