-- 作者:johnny8306
-- 发布时间:2022/9/6 17:10:00
--
项目事件 计划管理 表事件 prepay_DataColChanged If e.DataCol.Name = "预付款" Then Dim pr As DataRow pr = DataTables("借支统计").Find("ID = \'" & e.DataRow("ID") & "\'") If pr IsNot Nothing Then pr("预付款") = pr("预付款") + e.NewValue - e.OldValue End If End If 窗口表事件 窗口与控件事件 7.16-7.31工资表_Button1_Click Tables("工资表1").AddNew() 7.16-7.31工资表_Button2_Click Tables("工资表1").Current.Delete 7.16-7.31工资表_Button3_Click With Tables("工资表1") .Position = .Position - 1 End With 7.16-7.31工资表_Button4_Click DataTables("工资表1").Save() 7.16-7.31工资表_Button5_Click Tables("工资表1").Position = 0 7.16-7.31工资表_Button6_Click With Tables("工资表1") .Position = .Rows.Count - 1 End With 7.16-7.31工资表_Button7_Click With Tables("工资表1") .Position = .Position - 1 End With 7.16-7.31工资表_Button8_Click With Tables("工资表1") .Position = .Position + 1 End With 自定义函数 全局代码 Default 菜单事件
|