主题：[求助]字符主键如何用代码自增

主键内容如图：

此主题相关图片如下：qq截图20140527092418.jpg

如何每增加一行，主键自增。

我用这段代码可以实现：

Dim t As String = e.DataTable.Compute("Max(cgid)", "")
If t.substring(2,1) = "0" Then
e.DataRow("cgid") = "CG0" & t.substring(3,2) + 1
Else
e.DataRow("cgid") = "CG" & t.substring(2,3) + 1
End If

能否精简？