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

 哦，写错了

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

如下代码

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 & "%'")
        max = max.SubString(e.newvalue.length)
        If max IsNot Nothing Then
            e.newvalue = e.newvalue.PadRight(e.newvalue.length + max.Length + 1,"*")
        End If
    End If
End If