editChanged事件:
If dwo.name = '列名' Then
Long ll_Found
DataWindowChild ldwc_name
This.GetChild('列名',ldwc_name)
ldwc_name.SetTransObject(SQLCA)
If len(data) = 0 Then
ldwc_name.SetFilter('') ///清除过滤
ldwc_name.Filter()
ldwc_name.Retrieve()
Return
End If
ldwc_name.Retrieve()
ldwc_name.SetFilter(" 列名 like '"+data+"%'")
ldwc_name.Filter()
End If
If dwo.name = '列名' Then
Long ll_Found
DataWindowChild ldwc_name
This.GetChild('列名',ldwc_name)
ldwc_name.SetTransObject(SQLCA)
If len(data) = 0 Then
ldwc_name.SetFilter('') ///清除过滤
ldwc_name.Filter()
ldwc_name.Retrieve()
Return
End If
ldwc_name.Retrieve()
ldwc_name.SetFilter(" 列名 like '"+data+"%'")
ldwc_name.Filter()
End If