主题：根据用户自动编号

编写Datacolchanged事件

Select Case e.DataCol.name
    Case "一级单位", "二级单位", "三级单位"
        e.DataRow("序号") = e.DataRow("一级单位") & e.DataRow("二级单位") & e.DataRow("三级单位")
End Select

 首先，你要有一个编号表，然后才能查找到对应的值。

 输入数据，做个例子发上来。