主题：怎么判断数据是否保存

http://www.foxtable.com/help/topics/0387.htm

 

上传例子说明什么问题啊。

 

http://www.foxtable.com/help/topics/0668.htm

 

代码没有问题。你去点击看哪里的事件有错

 

http://www.foxtable.com/help/topics/1485.htm

 

BeforeDeleteDataRow

 

e.DataTable.GlobalHandler.CurrentChanged = False

 

DataRowDeleted

 

e.DataTable.GlobalHandler.CurrentChanged = True

currentChanged事件，不止触发一次，一次操作可能触发几次。几次过程中，当前行的状态不确定。

 

尽量不要在currentChanged事件写耗时的代码，如 Load、msgbox诸如此类的

测试，不会报错

调用e.Table.Current没有问题啊

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.foxdb

 

项目事件

 

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

 

窗口表事件

 

窗口与控件事件

 

自定义函数

 

全局代码

 

菜单事件