|
Dim t As Table = Tables("窗口1_table1")
Dim sql As String
Dim st As String = e.Form.Controls("TextBox1").text
If st > "" Then
sql = "select * fr om {订单} where IIf(单价 is null ,0,单价) >= " & st-0.000001 & " and IIf(单价 is null ,0,单价) <= " & st + 0.000001 & " or IIf(数量 is null ,0,数量) >= " & st-0.000001 & " and IIf(数量 is null ,0,数量) <= " & st+0.000001 & ""
t.fill(sql,"yy",True)
t.AutoSizeCols()
End If
|
加好友 
发短信
Post By：2016/6/17 19:05:00 [显示全部帖子]
