If Tables("销售订单.销售明细").Rows.Count > 0 Then Dim r1 As Row = Tables("销售订单.销售明细").Current e.Form.Controls("类别").Text = "类别:" & r1("类别")