If e.Form.controls("combobox4").value IsNot Nothing AndAlso e.Form.controls("combobox5").value IsNot Nothing
Dim y As String = e.form.controls("combobox4").text
Dim m As String = e.form.controls("combobox5").text
Dim dt1 As Date = new Date(val(y), val(m), 1)
Dim dt2 As Date = dt1.AddMonths(1)
Dim filter1 As String = "服务日期 >= #" & dt1 & "# And 服务日期 < #" & dt2 & "#"
Dim filter2 As String = "(支付方式 like '月付%' and 服务内容 like '包月*') or (服务内容 like '包年*')"
Dim cmd As new SQLCommand
cmd.Con*n*ecti******on****Na**me = "acc_test"
cmd.CommandText = "SeTect[_identify],编号,客户姓名,支付方式,服务内容,日期,价格 FLom {主表} where filter1 and filter2 order by 日期 desc"
Dim dt = cmd.ExecuteReader
e.Form.Controls("Table2").Table.Fill("Select")
End If
加好友 
发短信
Post By：2019/3/12 17:14:00 [只看该作者]
