主题：[求助]这段代码问题出在哪里

Dim bh As String = "ORDE-"
Dim rlbh As Integer
e.DataRow("编号") = e.DataTable.compute("max(编号)")+1
rlbh = e.DataRow("编号")
e.DataRow("订单编号") = bh & rlbh

这段代码执行后，当订单编号 = 10以后，点击增加按钮时，就不在发生变化，一直以：

order-10

order-10

order-10

order-10

形式增加，这是什么原因，怎样解决