以下是引用大红袍03在2015/5/5 21:06:00的发言:
systemReady = False
Dim pd,cs As String
pd=e.Table.Current("产品ID")
cs=e.Table.Current("客户ID")
Dim p As Integer
p=Tables("产品").FindRow("[产品ID]='" & pd & "'",0,True)
If p>=0 Then
Tables("产品").Position=p
End If
p=Tables("客户").FindRow("[客户ID]='" & cs & "'",0,True)
If p>=0 Then
Tables("客户").Position=p
End If
systemReady= True
前后加了systemReady 是不会闪退了,但不大明白为什么