文档中数据:
张三 13
李四 15
王五 18
然后有个按钮a,按钮a如何能达到把张三一列的13改为12?
update 表名 set 数值=12 where 姓名='张三'
方法1:
按钮的click事件调用javascript,document.all.xxx.value ="12"
按钮的click事件调用公式@SetField("域名";"12");
此方法只适用于以编辑模式打开的文档
方法2:
按钮的click事件调用公式@Command([ToolsRunMacro];"代理名") 通过运行LS代理修改文档的值
关键代码如下:
Dim tempdoc As NotesDocument Dim SearchKey() As String ReDim SearchKey(0) SearchKey(0) = Trim(doc.name(0)) '用张三做搜索关键字 Set view = db.GetView("视图名") '建个视图,第一列以姓名排序 Set vc = view.GetAllDocumentsByKey(SearchKey,true) If Not tempdoc Is Nothing Then Call tempdoc.Replaceitemvalue("域名","12") tempdoc.fieldname = "12" end if
应该是Set tempdoc = view.GetDocumentByKey(SearchKey,true)
最直接的方式就是A按钮执行公式 @Command([EditDocument])
点击按钮A后,文档成为编辑状态,你自己手动去把13 改成 12 ,当然 13 必须在 可编辑域中才能被编辑。
然后再点按钮B,按钮B执行公式 @Command([FileSave])
用代理也可以,假设13在 "F_num" 域中.按钮A执行代理 @Command([ToolsRunMacro];"agxxx")
Sub Initialize Dim ss As New NotesSession Dim doc As NotesDocument Set doc=ss.DocumentContext '获得当前文档 doc.F_num(0) = "12" '假设F_num是文本 call doc.save(false,false) End Sub