专家坐堂-保存事件失效Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  保存事件失效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148854)

--  作者：lgz518
--  发布时间：2020/4/16 16:44:00
--  保存事件失效

Tables("订单登记主表").Current.Save()
\'"订单登记主表---"保存"-按键--单击事件--把临时编号--保存为正式编号:

Dim dr As DataRow = Tables("订单登记主表").current.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 = "SHDH" & "" & Format(dr("制单日期"),"yyyyMM")
End If
Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim Key As Integer
cmd1.C \'设置数据源名称
cmd2.C
cmd1.commandText = " "\'"
If cmd1.ExecuteScalar = 0 Then
cmd1.commandtext = "Insert Into 编号 (前缀, 顺序号) Values(\'" & pf & "\',1)"
cmd1.ExecuteNonQuery
End If
cmd1.commandText = ""\'"
Do
Key = cmd1.ExecuteScalar()
cmd2.commandText = " "\'"
If cmd2.ExecuteNonQuery() > 0 Then
Exit Do
End If
Loop
dr("订单登记单号") = pf & "-" & Format(Key,"0000") \'流水号的设计)

\'订单单号--设计:

Dim drh As DataRow = Tables("订单登记主表").current.DataRow
Dim pfh As String
If drh.RowState <> DataRowState.Added Then
Return
ElseIf drh.IsNull("制单日期") Then
e.Cancel = True
MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
Else
pfh = "XCDJ" & "" & Format(drh("制单日期"),"yyyyMM")
End If
Dim cmd3 As New SQLCommand
Dim cmd4 As New SQLCommand
Dim Keyh As Integer
cmd3.C \'设置数据源名称
cmd4.C
cmd3.commandText = " "\'"
If cmd3.ExecuteScalar = 0 Then
cmd3.commandtext = "Insert Into 编号 (前缀, 顺序号) Values(\'" & pfh & "\',1)"
cmd3.ExecuteNonQuery
End If
cmd3.commandText = " "\'"
Do
Keyh = cmd3.ExecuteScalar()
cmd4.commandText = ""\'"
If cmd4.ExecuteNonQuery() > 0 Then
Exit Do
End If
Loop
drh("订单单号") = pfh & "-" & Format(Key,"0000") \'流水号的设计)

执行上面代码，失效，没报错，就是不执行

--  作者：lgz518
--  发布时间：2020/4/16 16:46:00
--
SQL语句部分是删除，因放不上来

--  作者：有点蓝
--  发布时间：2020/4/16 16:57:00
--
看不出什么问题。调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪些代码没有执行

--  作者：lgz518
--  发布时间：2020/4/16 17:07:00
--
是看不出来，调不出来，之前做过是可以执行

--  作者：lgz518
--  发布时间：2020/4/16 17:11:00
--
方法一：With Tables("订单登记主表")
If .Current IsNot Nothing Then
.Current.Save()
End If
End With
方法二：
Tables("订单登记主表").Current.Save()
把编号代码删除，实现保存功能，用上面二个方法，也不执行，不知道什么问题

--  作者：有点蓝
--  发布时间：2020/4/16 17:16:00
--
请上传实例测试