以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 无法保存行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190778) |
-- 作者:dahai -- 发布时间:2024/3/2 21:20:00 -- 无法保存行 我用的是阿里云sql数据库,在datacolchanged代码如下 If e.DataCol.Name = "创建日期" Then If e.DataRow.IsNull("创建日期") Then e.DataRow("退货单编号") = Nothing Else Dim d As Date = e.DataRow("创建日期") Dim y As Integer = d.Year Dim m As Integer = d.Month Dim Days As Integer = Date.DaysInMonth(y, m) Dim fd As Date = New Date(y, m, 1) Dim ld As Date = New Date(y, m, Days Dim bh As String = "TC" & Format(d, "yyyyMM") If e.DataRow("退货单编号").StartsWith(bh) = False Then Dim max As String Dim idx As Integer max = e.DataTable.SQLCompute("Max(退货单编号)", "创建日期 >= \'" & fd & "\' And 创建日期 <= \'" & ld & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号 If max > "" Then idx = CInt(max.Substring(8, 4)) + 1 Else idx = 1 End If e.DataRow("退货单编号") = bh & Format(idx, "0000") End If End If e.DataRow.save() End If 新增行后,并不会自动保存,我不清楚问题出在哪里,请专家帮忙看一下问题出在哪,谢谢! |
-- 作者:有点蓝 -- 发布时间:2024/3/3 20:08:00 -- 新增行后,输入"创建日期"才会保存的 |
-- 作者:dahai -- 发布时间:2024/3/4 10:37:00 -- 回复:(有点蓝)新增行后,输入"创建日期"才会保存的... datarowadding 设置了 e.datarow("创建日期") = date.today 并且也自动生成了编号,程序上e.datarow.save()是在datarowadding和datacolchanged之后的。所以我觉得应该可以自动保存才对。 |
-- 作者:有点蓝 -- 发布时间:2024/3/4 11:05:00 -- datarowadding 事件改为放到datarowadded事件 |
-- 作者:dahai -- 发布时间:2024/3/4 13:55:00 -- 回复:(有点蓝)datarowadding 事件改为放到dat... 谢谢版主,问题解决了。看了帮助文件datarowadding 和 datarowadded的区别,我还是不太理解,帮助文件中,自动生成编号的例子,为什么不在 datarowadded中自动生成日期,而使用datarowadding |
-- 作者:有点蓝 -- 发布时间:2024/3/4 14:09:00 -- 帮助不需要触发事件。datarowadding的时候,行还没有添加到表格,不会触发datacolchanged事件 |