Select Case e.DataCol.name
Case "原料名称", "入库日期"
e.DataRow("原料货号") = e.datarow("原料名称") & format(e.datarow("入库日期"), "yyyyMMdd")
End Select