主题：关于出现重复流水号的问题

监造基本信息表_DataRowAdding

Dim bh As String = "CI" & Format(Date.Today, "yyyyMM")

Dim max As String = e.DataTable.Compute("max(监造流水号)", "监造流水号 like '" & bh & "%'")

Dim idx As Integer = 1

If max > "" Then

    idx = Cint(max.SubString(bh.Length)) + 1

Else

    idx = 1

End If

e.DataRow("监造流水号") = bh & format(idx, "000")

不知该如何完善啊？请高手指点！