Select Case e.DataCol.Name Case "确认发布" If e.DataRow("确认发布") = True Then '当点击确定要发布证书信息内容时 Dim fdr As DataRow = DataTables("表B").sqlfind("证书批次 = '" & e.DataRow("证书批次") & "'" ) Dim str As String = "" If fdr IsNot Nothing Then For Each s As String In e.DataRow("产品选择").split(",") If DataTables("表B").datacols.Contains(s) Then str &= fdr(s) & "," End If Next str = str.trim(",") End If e.DataRow("产品证书") = str End If End Select