标题：增加行 提示错误怎么回事
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
此主题相关图片如下：01.png
纸上不谈兵。
订单_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