专家坐堂-退出执行代码问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  退出执行代码问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=175490)

--  作者：爱相随
--  发布时间：2022/3/7 11:09:00
--  退出执行代码问题

老师，请问一下下面标色的部分应该怎么修改呢，谢谢指导？？
If e.DataCol.Name = "日期" Then
If e.DataRow.IsNot Null("债权人统一社会信用代码") Then
Exit If \'如果不为空,则保持原值不变
Else

If e.DataRow.IsNull("日期") Then
e.DataRow("债权人统一社会信用代码") = Nothing
Else
Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") \'取得编号的8位前缀
If e.DataRow("债权人统一社会信用代码").StartsWith(bh) = False \'如果编号的前8位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(债权人统一社会信用代码)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("债权人统一社会信用代码") = bh & "-" & Format(idx,"000")
End If
End If
End If
End If

--  作者：有点蓝
--  发布时间：2022/3/7 11:20:00
--

If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("债权人统一社会信用代码") = false Then
Else
   If e.DataRow.IsNull("日期") Then

或者

If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("债权人统一社会信用代码") Then
   If e.DataRow.IsNull("日期") Then

--  作者：爱相随
--  发布时间：2022/3/7 11:35:00
--
这样的结果就是不能自动号了啊

--  作者：爱相随
--  发布时间：2022/3/7 11:39:00
--
我要的效果是：如果”债权人统一社会信用代码“这一列如果原来有数值，那就保持原来的数据不变，如果没有数据为空，就按设计的编码自动编号。
按下列代码执行后，不自动编号，无论”债权人统一社会信用代码“有无数据都不自动编号了，麻烦老师再想想，谢谢！
If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("债权人统一社会信用代码") Then
   If e.DataRow.IsNull("日期") Then

[此贴子已经被作者于2022/3/7 11:39:53编辑过]

--  作者：有点蓝
--  发布时间：2022/3/7 11:45:00
--
不可能有问题

If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("债权人统一社会信用代码") Then
If e.DataRow.IsNull("日期") Then
e.DataRow("债权人统一社会信用代码") = Nothing
Else
Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") \'取得编号的8位前缀
If e.DataRow("债权人统一社会信用代码").StartsWith(bh) = False \'如果编号的前8位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(债权人统一社会信用代码)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("债权人统一社会信用代码") = bh & "-" & Format(idx,"000")
End If
End If
End If
End If

--  作者：爱相随
--  发布时间：2022/3/7 11:53:00
--

增加了一列辅助列，但是，当"债权人统一社会信用代码"有数值后，后面的行就不能自动编号了，前面的可以，不知道是怎么回事。
If e.DataCol.Name = "日期" Then
If e.DataRow("债权人统一社会信用代码") IsNot Nothing Then
e.DataRow("债权人编码") = e.DataRow("债权人统一社会信用代码")\'如果不为空,则保持原值不变
Else
If e.DataRow.IsNull("日期") Then
e.DataRow("债权人编码") = Nothing
Else
Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") \'取得编号的8位前缀
If e.DataRow("债权人编码").StartsWith(bh) = False \'如果编号的前8位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(债权人编码)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("债权人编码") = bh & "-" & Format(idx,"000")
End If
End If
End If
End If

--  作者：有点蓝
--  发布时间：2022/3/7 11:56:00
--
日期列是不是没有值？

If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("债权人统一社会信用代码") = false Then
e.DataRow("债权人编码") = e.DataRow("债权人统一社会信用代码")\'如果不为空,则保持原值不变
Else