currentChanged事件，写代码
Dim r As Row = e.Table.Current
If r IsNot Nothing Then
Tables("账单.运费计费表").Filter = "起重 <= " & r("重量") & " and 限重 > " & r("重量")
End If
加好友 
发短信
Post By：2017/12/24 20:48:00 [显示全部帖子]
