Dim nr As WinForm.TextBox = e.Form.Controls("查询内容")
Dim xzl As WinForm.ComboBox = e.Form.Controls("选择列")
Dim C As String =nr.Value
Dim d As WinForm.Label = e.Form.Controls("Label1")
Dim f As Table = Tables("主窗口_子窗体")
Dim b As Table = Tables("主窗口_子窗口2")
Dim shcx As WinForm.ComboBox = e.Form.Controls("审核查询")
Dim jscx As WinForm.ComboBox = e.Form.Controls("结算查询")
Dim ge As String = xzl.Text
If shcx.Value ="未审核" Then
f.Filter ="审核状态 = false and ge Like '*" & c & "*'"
end if
这样写对吗
加好友 
发短信
Post By：2014/10/14 9:58:00 [只看该作者]
