主题：关于子表有多个父表的问题

 哦，写错了

If e.DataCol.Name = "订单号" AndAlso e.newvalue <> Nothing Then
    Dim dr As DataRow
    dr = e.DataTable.find("订单号 like '" & e.NewValue & "%'")
    If dr IsNot Nothing Then
        Dim max As String = e.DataTable.Compute("max(订单号)", "订单号 like '" & e.NewValue & "%'")
        Dim idx As Integer = val(max.SubString(e.newvalue.length)) + 1
        e.newvalue = e.newvalue & format(idx,"000")
    End If
End If