主题：[求助]入库单号加1

        For Each dr As DataRow In DataTables("U8物料数量汇总表").DataRows
            If dr.IsNull("入库单号")= True Then

                rkdh.text =  bh & Format(idx,"0000")

                idx += 1
                dr("入库单号") = rkdh.text ----希望循环时每行的每个入库单号都是上一行的入库单号加1，而不是固定的。