表dk_lxb 有以下列
产品编号 （cpbm), 付息日期（fxrq), 起息日期（qxrq）,止息日期（zxrq), 标志（bz)
当窗口按钮新增一行时，（bz)是在窗口新增行时默认填充的。要求当bz=1时执行如下代码
过程是：先查找不同产品编号中的上次zxrq最大的日期，找出后：
新增行的qxrq=找出的zxrq加一天 （上次计算日止第二天重新开始计息开始日期）
新增行的zxrq=找出的zxrq加一月 （上次计算日止加一个月结算期）
新增行的fxrq=zxrq加一天 （利息计算止日第二天付款）
问题：我在当窗口按钮新增一行时，这三个日期出不来，是什么原因？
'以下增加一个月自动填写所有日期
Select Case e.DataCol.name
Case "cpbm","bz"
If e.DataRow.IsNull("cpbm") OrElse e.DataRow.IsNull("bz") Then
e.DataRow("fxrq") = Nothing
e.DataRow("qxrq") = Nothing
e.DataRow("zxrq") = Nothing
Else
Dim ddr0 As DataRow
Dim max As Date
max = e.DataTable.Compute("Max(zxrq)")
ddr0 = DataTables("dk_lxb").Find("[cpbm] = '" & e.DataRow("cpbm") & "' And [zxrq] = #" & Max & "#")
If e.DataRow("bz")=1 Then
Dim dd4 As Date = e.DataRow("zxrq") '止息日期
Dim dd1 As Date = dd4.AddDays(1) '起息日期
Dim dd2 As Date = dd4.addmonths(1) '第二次止息日期
Dim dd3 As Date = dd2.AddDays(1) '付息日期
If ddr0 IsNot Nothing
e.DataRow("fxrq") = ddr0("dd3")
e.DataRow("qxrq") = ddr0("dd1")
e.DataRow("zxrq") = ddr0("dd2")
End If
End If
End If
End Select
加好友 
发短信
Post By：2020/4/29 12:35:00 [只看该作者]
