datacolchanged事件
Dim r As DataRow = e.DataRowIf e.DataCol.name = "第二列" Then Dim str As String = user.name & "/" & Date.now If r.IsNull("第一列") Then r("第一列") = str Else r("第一列") &= vbcrlf & str End IfEnd If