一个简单的操作,该怎么处理
一个简单的操作
在子表单中 选中某 个checkbox A，给某个 文本框 B自动赋值
（C/S结构）
Sub Onchange(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim ddl_num As String
ddl_num=uidoc.FieldGetText("A")
If(ddl_num<>"") Then
Call uidoc.FieldSetText("B","5")
Call uidoc.Save
'Call uidoc.GotoField( "C" )
Call uidoc.refresh
End If
End Sub
为何选中不能不能立刻赋值呢，非得单击其他控件才可以？
------解决方案--------------------
你的checkbox的第二个标签选上“Refresh document on keyword change"，第三个标签选中最下面的那个“Run exiting/onchange events after value change"
------解决方案--------------------
在域“A”的“高级”标签中选中“在值更改后运行Exiting/OnChenge事件”即可
------解决方案--------------------
cnscns 回复的是正确的，只是他使用的客户端是英文的
在子表单中 选中某 个checkbox A，给某个 文本框 B自动赋值
（C/S结构）
Sub Onchange(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim ddl_num As String
ddl_num=uidoc.FieldGetText("A")
If(ddl_num<>"") Then
Call uidoc.FieldSetText("B","5")
Call uidoc.Save
'Call uidoc.GotoField( "C" )
Call uidoc.refresh
End If
End Sub
为何选中不能不能立刻赋值呢，非得单击其他控件才可以？
------解决方案--------------------
你的checkbox的第二个标签选上“Refresh document on keyword change"，第三个标签选中最下面的那个“Run exiting/onchange events after value change"
------解决方案--------------------
在域“A”的“高级”标签中选中“在值更改后运行Exiting/OnChenge事件”即可
------解决方案--------------------
cnscns 回复的是正确的，只是他使用的客户端是英文的