主题：错误提示

加载表的时候，代码为：DataTables("业务表").load()，出现错误提示如下：

此主题相关图片如下：12.jpg

业务表的PositionChanged事件代码为：

Dim dr As Row = e.Table.current
dr("本人照片")=Nothing
怎样能做到加载表的时候不让PositionChanged事件执行？或者在PositionChanged事件中能决断只在加载表以后执行该事件？

从而避免错误提示出现。

 

有取消动作的代码。

然后判断该表是否有数据，如果没有数据则停止

定义一个全局变量 a Boolean

 

PositionChanged

If Vars("a")  then

else
End If

 

 

BeforeLoad     加载数据前

Vars("a") = true

 

 

AfterLoad        加载数据后

Vars("a") = False

谢谢qtcks了

出错提示应该这样就可以解决。

 

If e.Table.Rows.Count > 0 Then
    e.Table.Current("本人照片") = Nothing
End If