主题：[求助]自动输入问题

DataColChanged事件

Select Case e.DataCol.Name
    Case "A列"
        If e.NewValue IsNot Nothing
            e.DataRow("B列") = format(e.DataRow("A列"),"yyyyMM")
        End If
End Select