想实现的功能：在订单界面输入客户和产品后，价格列自动填入该客户上次订单的售价Dim dr As DataRow
Dim pm As String = Tables("订单明细").Current.DataRow("品名")
Dim kh As String = Tables("订单明细").Current.DataRow("客户名称")
dr = DataTables("订单明细").Find(".品名 = pm & .客户名称 = kh ","日期 Desc")
If dr IsNot Nothing Then
Tables("订单明细").Current.DataRow("价格") = dr("价格")
End If
另一种也是不行：
If e.DataCol.Name = "客户名称" Or e.DataCol.Name = "品名" Then
Dim dr As DataRow
Dim Filter As String
Filter = "[客户名称] = '" & e.DataRow("客户名称") & "' And [品名] = '" & e.DataRow("品名") & "'"
dr = DataTables("订单明细").Find(Filter ,"日期 Desc")
If dr IsNot Nothing Then
e.DataRow("价格") = dr("价格")
End If
End If
还有个疑问：当代码查找到需要的行时，current是当前需要输入的行，还是查找到的行？
[此贴子已经被作者于2015/7/17 20:37:25编辑过]
加好友 
发短信
Post By：2015/7/17 18:28:00 [显示全部帖子]
