以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]子表编号自动增加行自动加1问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31125)
--  作者：琼息
--  发布时间：2013/4/10 16:31:00
--  [求助]子表编号自动增加行自动加1问题
有关联：订单表和订单明细表，由于订单明细表中的明细编号要字符型，所以现在希望用代码实现在每个订单编号下面新增行时候订单明细表中的明细编号自动加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")
--  作者：fjlclxj
--  发布时间：2013/4/10 21:59:00
--  
输出查找的最大值，看看是多少
[此贴子已经被作者于2013-4-10 22:00:14编辑过]
--  作者：有点甜
--  发布时间：2013/4/10 22:43:00
--  

做个例子看看。

另外留意一下列的数据类型是否正确。