我在数据表的datacolchanged设置了列合并代码,如下,我想建一个窗口,获取 列标题 列表,进行勾选,然后为下列的基础代码赋值,再写进表事件中。
这种想法可行吗,能否实现?
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "A","B","C"
dr("D") = IIF(dr.IsNull("A"),"",dr("A")+vbcrlf)
dr("D") += IIF(dr.IsNull("B"),"",dr("B")+vbcrlf)
dr("D") += IIF(dr.IsNull("C"),"",dr("C")+vbcrlf)
dr("D") = dr("D").trimend(vbcrlf)
End Select