主题：数据列，，增加一行 订单号自动增加1 ？？？

DataRowAdded事件

Dim bh As String = "vr"
dim max = e.DataTable.Compute("Max(订单号)", "订单号 Like '" & bh & "%'")
dim idx = 1
If max > "" Then '如果存在最大单据编号
    idx = CInt(max.Substring(bh.length)) + 1
End If
e.DataRow("订单号") = bh & Format(idx,"00000")