Dim dr As DataRow dr = DataTables("产品").Find("产品编号 = '03'") '找出编号为03的产品 With DataTables("订单") dr = .Find("产品 = 'PD01'","日期") '找出第一次订购PD01产品的记录 End With
Dim
dr As DataRow dr = DataTables("产品").SQLFind("产品编号 = '03'") '找出编号为03的产品 With DataTables("订单") dr = .SQLFind("产品 = 'PD01'","日期") '找出第一次订购PD01产品的记录 End With