设置电汇单的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 IfEnd If