-- 作者:有点甜
-- 发布时间:2017/7/5 15:19:00
--
Dim zd As String = e.Form.Controls("ComboBox1").Text
Dim nr As String = e.Form.Controls("TextBox1").Text
Tables("表A").Filter = "convert(" & zd & ",\'System.String\') like \'%" & nr & "%\'"
[此贴子已经被作者于2017/7/5 15:19:24编辑过]
|