放一个字符列存放你的 20170206
然后datacolchanged事件写代码
If e.DataCol.name = "第一列" Then If e.NewValue.length = 8 Then Dim d As Date = new Date(e.NewValue.Substring(0,4), e.newvalue.substring(4,2), e.newvalue.substring(6,2)) e.DataRow("第二列")= d End IfEnd If