主题：[求助] 订单号按规则顺序输入

参考这里设计

http://www.foxtable.com/webhelp/scr/2403.htm

001、002、003这些转换成字母的代码，参考

Dim idx As Integer = 30
Dim ac As Integer = 65
Dim str As String = ""
Do While True
    idx = idx - 1
    Dim m As Integer = idx Mod 26
    idx = idx \ 26
    str = str.Insert(0,chr(65+m))
    If idx = 0 Then
        Exit Do
    End If
Loop
output.show(str)

1、你的代码写在datacolchanged事件，你需要输入【编制日】的值，才会计算编号的。

2、如果想增加行，立马填入，你可以在DataRowAdded事件，写代码 e.DataRow("编制日") = Date.Today

用5楼代码，同时，删除默认值函数date()，在DataRowAdded事件，写代码 e.DataRow("编制日") = Date.Today

如果还有问题，请上传具体实例说明。

改成

Select Case e.DataCol.name
    Case "编制日"
        If e.DataRow.IsNull("编制日") Then
            e.DataRow("订单号") = Nothing
        Else
            Dim bh As String = Format(e.DataRow("编制日"),"yyMMdd") '取得编号的6位前缀
            If e.DataRow("订单号").StartsWith(bh) = False '如果编号的前6位不符
                Dim idx As Integer
                Dim drs As List(Of DataRow)
                drs = e.DataTable.Select("编制日 = #" & e.DataRow("编制日") & "#", "_Identify") '找出所有符合条件的行
                For i As Integer = 0 To drs.count-1
                    If drs(i)("_Identify")  =e.DataRow("_Identify")
                        idx = i + 1
                        Dim ac As Integer = 65
                        Dim str As String = ""
                        Do While True
                            idx = idx - 1
                            Dim m As Integer = idx Mod 26
                            idx = idx \ 26
                            str = str.Insert(0,chr(65+m))
                            If idx = 0 Then
                                Exit Do
                            End If
                        Loop
                       
                        drs(i)("订单号") = bh & str
                    End If
                Next
            End If
        End If
End Select

1、如果需要时间，列属性设置，参考 http://www.foxtable.com/webhelp/scr/0044.htm

2、如果自动填入，datarowadded事件，写代码

e.datarow("编制日") = Date.Now

回复18楼，datarowadded事件输入e.DataRow("编制日") = Date.now肯定是没问题，请认真测试。

如果是订单号没有计算，修改代码，如

Select Case e.DataCol.name
    Case "编制日"
        If e.DataRow.IsNull("编制日") Then
            e.DataRow("订单号") = Nothing
        Else
            Dim bh As String = Format(e.DataRow("编制日"),"yyMMdd") '取得编号的6位前缀
            If e.DataRow("订单号").StartsWith(bh) = False '如果编号的前6位不符
                Dim idx As Integer
                Dim drs As List(Of DataRow)
                drs = e.DataTable.Select("编制日 >= #" & e.DataRow("编制日").Date & "# and 编制日 < #" & e.DataRow("编制日").Date.adddays(1) & "#", "_Identify") '找出所有符合条件的行
                For i As Integer = 0 To drs.count-1
                    If drs(i)("_Identify")  =e.DataRow("_Identify")
                        idx = i + 1
                        Dim ac As Integer = 65
                        Dim str As String = ""
                        Do While True
                            idx = idx - 1
                            Dim m As Integer = idx Mod 26
                            idx = idx \ 26
                            str = str.Insert(0,chr(65+m))
                            If idx = 0 Then
                                Exit Do
                            End If
                        Loop
                       
                        drs(i)("订单号") = bh & str
                    End If
                Next
            End If
        End If
End Select

单独新建一个项目，弄好表格，输入数据，填入代码，然后发上来说明。

修改datacolchanging事件

    Case "传单日","编制日","确认日"
        If e.NewValue > Date.Today()
            e.Cancel = True
        End If

改成

    Case "传单日","编制日","确认日"
        If e.NewValue > Date.Today().adddays(1)
            e.Cancel = True
        End If