\'查询数据
Dim ywdl As WinForm.ComboBox = e.Form.Controls("业务大类")
Dim ywzl As WinForm.ComboBox = e.Form.Controls("业务子类")
Dim sjdx As WinForm.TextBox = e.Form.Controls("数据对象")
Tables("YWTYPE").Filter="业务大类 = \'" & ywdl.Text & "\' and 业务子类 = \'" & ywzl.Text & "\' and 数据对象 like \'*" & sjdx.Text & "*\' "
\'隐藏详细信息
Forms("业务分类").Controls("业务属性").SelectedPage.Visible = False