主题：有关数据合并的难题困扰我多时，急求给与帮助解决！谢谢！

DataColChanged事件代码：

Select Case e.DataCol.Name
    Case "模具号","机台号","日期","班次"
        Dim dr As DataRow = e.DataRow
        Dim s As String = Iif(dr.IsNull("日期") = False,Format(dr("日期"),"yyMMdd"),"") & Iif(dr.IsNull("班次")=False,dr("班次"),"")
        dr("批号") = dr("模具号") & dr("机台号") & s
End Select