主题：[求助]顺序编号

1、现在执行代码的时候有什么问题？请具体说明。

2、不然做一个实例发上来测试吧。

Dim bxmx As WinForm.Table = e.Form.Controls("Table1")
Dim bxhz As WinForm.Table = e.Form.Controls("Table2")
bxmx.Table.AllowEdit=True
Dim r2 As Row = bxmx.Table.AddNew
Dim r As Row = bxhz.Table.Current
Dim manid =r2.Table.Compute("Max(jurnumbers)","jurnumbers like '"& r("第一列") & "%'")

If manid > ""  Then
    Dim ary = manid.split("/")
    r2("jurnumbers")=r("第一列") & "/" & Format(ary(1)+1,"00")
Else
    MessageBox.Show( CInt(manid))
    r2("jurnumbers")=r("第一列") & "/" & "01"
End If