主题：两列值自动加1

老师:

     我想要两个列的值 在增加时,要让"实物账部分_号","凭证_明细号"都自动加1,现在是点完增加按钮,一下就增加了两行数据,

以下的代码要怎么改?

Dim mbx As Integer = Tables("明细账表").Rows(Tables("明细账表").Rows.count-1)("实物账部分_号")
Dim  u As Row = Tables("明细账表").Current.Clone()
u("实物账部分_号") = mbx + 1
Dim max As Integer = Tables("明细账表").Rows(Tables("明细账表").Rows.count-1)("凭证_明细号")
Dim r As Row = Tables("明细账表").Current.Clone()
r("凭证_明细号") = max + 1
r("明细账_售出金额") = Nothing
r("明细账_废piao") = Nothing
r("姓名") = Nothing
r("售出日期") = Nothing
r("明细账_售出张数") = Nothing
r("明细账_结存张数") = Nothing
r("明细账_售出起号") = Nothing
r("明细账_上年结转张数") = Nothing
r("明细账_退piao张数") = Nothing
r("明细账_今日领入张数") = Nothing
r("明细账_领入起号") = Nothing

r("明细账_领入止号") = Nothing
r("明细账_售出止号") = Nothing
r("摘要_日期") = Nothing
r("明细账_领入张数") = Nothing