有关联：订单表和订单明细表，由于订单明细表中的明细编号要字符型，所以现在希望用代码实现在每个订单编号下面新增行时候订单明细表中的明细编号自动加1，但是执行代码时候却发现不行，弹出了0,1,2,3,6,7,8,9，执行不到4,5，什么问题呢？
Dim lb As String = e.DataRow("订单编号")
MessageBox.Show("0")
Dim max As String
MessageBox.Show("1")
Dim idx As Integer
MessageBox.Show("2")
max = e.DataTable.Compute("Max(明细编号)","订单编号='" & lb & "' ")
MessageBox.Show("3")
If max >" " Then
MessageBox.Show("4")
idx = CInt(max) + 1
MessageBox.Show("5")
Else
MessageBox.Show("6")
idx = 1
MessageBox.Show("7")
End If
MessageBox.Show("8")
e.DataRow("明细编号")=CStr(idx)
MessageBox.Show("9")
加好友 
发短信
Post By：2013/4/10 16:31:00 [只看该作者]
