项目事件
AfterOpenProject
Forms("测试").Open()
For Each dt As DataTable In DataTables
dt.GlobalHandler.BeforeDeleteDataRow = True
dt.GlobalHandler.DataRowDeleted = True
Next
BeforeDeleteDataRow
e.DataTable.GlobalHandler.CurrentChanged=False
DataRowDeleted
e.DataTable.GlobalHandler.CurrentChanged=True
CurrentChanged
If e.Table.Cols.Contains("乙方") Then
If e.Table.Current Is Nothing OrElse DataTables(e.Table.Name).DataCols.Contains("乙方")=False Then
Else
MessageBox.Show(e.Table.Current("乙方"))
End If
End If
计划管理
表事件
测试_DrawCell
'If DataTables("产值明细表").HasChanges Then
'Exit Sub
'End If
Dim v1() As String = {"申报日期","所属期间","开发项目","开发产品","合同名称","乙方"}
Dim FreezeCols As New List(of String)
FreezeCols.AddRange(v1) '将数组中的元素全部加入到集合中
If not FreezeCols.Contains(e.Col.Name) Then
If e.Row.IsNull("审核人员") Or trim(e.Row("审核人员"))="" Then
e.Style = "未审核"
End If
End If
If not e.Row.IsNull("乙方") Then
If e.Col.Name = "本月付款比例" Then
If e.Row(e.Col.Name)>1 Or e.Row(e.Col.Name)< 0 Or e.Row.IsNull(e.Col.Name)
e.Style = "错误" '那么用"不及格"样式绘制单元格
End If
End If
If e.Col.Name = "申报产值" Then
If e.Row.IsNull(e.Col.Name) = True
e.Style = "错误" '那么用"不及格"样式绘制单元格
End If
End If
End If
窗口表事件
窗口与控件事件
自定义函数
全局代码
菜单事件
加好友 
发短信
Post By：2015/12/7 18:00:00 [只看该作者]
