-- 作者:sloyy
-- 发布时间:2012/11/4 20:50:00
--
既然是查询, 规格 客户 就是查询条件了
此主题相关图片如下:qq截图20121104205004.png
Dim Kh,Gg As String Kh=e.Form.Controls("TextBox1").text Gg=e.Form.Controls("TextBox2").text
Dim Filter1 As String Filter1="[规格] = \'" & kh & "\' And 客户 = \'" & Gg & "\'" Dim dr As DataRow dr = DataTables("订单明细").Find(Filter1,"日期 DESC") If dr IsNot Nothing Then e.Form.Controls("TextBox3").text= dr("单价") End If
|