currentChanged 事件里面没有代码
然后click里面有一些代码,我把click的代码都注释了,还是会出现,但没有那么频繁,下面是click的代码,感谢 感谢
If e.Form.Controls("RadioButton1").checked Then
Dim t As Table = e.Form.Controls("Table3").Table
e.Form.Controls("Table4").Table.Filter = "属性_代销编号 = '" & t.Current("商品编号") & "'"
End If
If e.Form.Controls("RadioButton2").checked Then
Dim t As Table = e.Form.Controls("Table3").Table
e.Form.Controls("Table4").Table.Filter = "属性_代销编号 = '" & t.Current("商品编号") & "'and 平台信息_状态 = '已分组'"
End If
If e.Form.Controls("RadioButton3").checked Then
Dim t As Table = e.Form.Controls("Table3").Table
e.Form.Controls("Table4").Table.Filter = "属性_代销编号 = '" & t.Current("商品编号") & "'and 平台信息_状态 = '未分组'"
End If
If e.Form.Controls("CheckBox1").Checked = True Then
If Tables("代销产品录入窗口_Table3").Current("平台状态_状态")="部分分组" Then
msgbox("此产品有部分未分组")
End If
End If