没看懂你的问题,如果你是设置出入库明细表的所有序号,可以做个按钮,将按钮的Click事件代码设置为:
For Each dr As DataRow In DataTables("出入库汇总表").DataRows Dim drs As List(of DataRow) = dr.GetChildRows("出入库明细表") For i As Integer =0 To drs.Count - 1 drs(i)("序号") = i + 1 NextNext