求助:我做了一个窗口里面有二个checkbox控件,通过这二个控件的选中状态来更新数据的字段(是同一个字段)如果选中CHECKBOX1则更新成"普通"如果CHECKBOX2选中则更新成"加急"

1.保存代码:自动判断选中状态进行数据库更新,此步没有问题. 

此主题相关图片如下：未命名.jpg

2.打开窗口自动判断应该选中那个CHECKBOX(也没有问题)

Dim zt As String = Tables("电汇单").Current("汇款方式")
If zt = "普通" Then
    e.Form.Controls("CheckBox1").checked = True
Else
    e.Form.Controls("CheckBox2").checked = True
End If

但如果我在录入窗口将当前的行删掉时候程序会自动读上一行数据,这样在这个窗口上就不会自动判断CHECBOX应该选中那个了.因为afterlaod.不起作用了.

此主题相关图片如下：qq截图20120821111735.png

请问如何实现 删掉当前行的数据程序读上一行的数据的时候也自动选中某个CHECKBOX?

设置电汇单的Currentchanged事件:

If Forms("xxx").Opened Then
    Dim zt As String = e.Table.Current("汇款方式")
    If zt = "普通" Then
        Forms("xxx").Controls("CheckBox1").checked = True
    Else
        Forms("xxx").Controls("CheckBox2").checked = True
    End If
End If