BeforeConnectOuterDataSource

If e.name = "编号" Then

    e.C & e.ProjectPath & "编号.mdb;Persist Security Info=False"

End if

AfterOpenProject

Tables("订单").Sort = "编号"

计划管理

表事件

订单_DataColChanged

If e.DataCol.Name = "编号" Then

    If e.DataRow.GetChildRows("关联").Count = 0 Then

        Dim dr As DataRow = DataTables("关联").DataRows.AddNew()

        dr("编号") = e.newvalue

    End If

End If

订单_BeforeSaveDataRow

Dim dr As DataRow = e.DataRow

Dim pf As String

If dr.RowState <> DataRowState.Added Then \'如果不是新增行

    Return \'那么返回

ElseIf dr.IsNull("日期") Then \'如果没有输入日期

    e.Cancel = True \'取消保存此行

    MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

Else

    pf = Format(dr("日期"),"yyMM") \'否则获得编号的前缀,两位年,两位月

End If

Dim cmd1 As New SQLCommand

Dim cmd2 As New SQLCommand

Dim Key As Integer

cmd1.C \'设置数据源名称

cmd2.C

cmd1.commandText = "Select Count(*) From [编号] Where [前缀] = \'" & pf & "\'"

If cmd1.ExecuteScalar = 0 Then \'如果编号表不存在前缀的行,那么增加一行

    cmd1.commandtext = "Insert Into 编号 (前缀, 顺序号) Values(\'" & pf & "\',1)"

    cmd1.ExecuteNonQuery

End If

cmd1.commandText = "Select [顺序号] From [编号] Where [前缀] = \'" & pf & "\'"

Do

    Key = cmd1.ExecuteScalar() \'从后台获得顺序号

    cmd2.commandText = "Update [编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = \'" & pf & "\'"

    If cmd2.ExecuteNonQuery() > 0 Then \'更新顺序号

        Exit Do \'更新成功则退出循环

    End If

Loop

e.DataRow("编号") = pf & "-" & Format(Key,"0000")

订单_DataRowAdding

\'生成临时编号

Static Index As Integer = 99999

e.DataRow("编号") = Format(Date.Today(),"yyMM") & "-" & Index

Index = Index - 1

纸上不谈兵。

订单_DataColChanged

If e.DataCol.Name = "编号" Then

    If e.DataRow.GetChildRows("关联").Count = 0 Then

        Dim dr As DataRow = DataTables("关联").DataRows.AddNew()

        dr("编号") = e.newvalue           \' 也许是这里的问题···

    End If

End If