不能用表达式列。
datacolchanged事件,写代码
If e.DataCol.name = "第二列" OrElse e.DataCol.name = "第三列" Then Dim str As String = e.DataRow("第一列") If str <> Nothing Then e.DataRow("第一列") = str.split("-")(0) & "-" & e.DataRow("第二列") & "X" & e.DataRow("第三列") End IfEnd If