主题：保存时自动生成编号

Dim ary() As String = Functions.Execute("Xueqi")
For Each r As Row In Tables("纯净水领用").Rows
    If r.DataRow.RowState = DataRowState.Added Then
        Dim max As String
        max = DataTables("纯净水领用").SQLCompute("Max(领水编号)","领水编号 Like '" & ary(1) & "-" & "%'")
        If max = "" Then
            r("领水编号") = ary(1) & "-" & "001"
        Else
            Dim v As Integer = max.SubString(7,3)
            r("领水编号") = ary(1) & "-" & format(v +1,"000")
        End If
        r.save
    End If
Next

Tables("纯净水领用").select(r.index, Tables("纯净水领用").cols(kjmc(i)).index)