Dim r As Row = e.Table.current Dim r2 As Row = Tables("B").current If r Is Nothing OrElse r2 Is Nothing Then Return 'dim cls() as string = {"第一列","第二列"} For Each c As Col In e.Table.cols If r(c.name) = "/" AndAlso Tables("B").cols.Contains(c.Name) Then r2(c.name) = "/" End If Next
加好友 
发短信
Post By：2020/10/23 8:08:00 [显示全部帖子]
