If e.Table.Current Is Nothing Then
Return
End If
Dim dr1 As DataRow = Tables("电池").Current.DataRow
Dim dr2 As DataRow
Dim exp As String = CExp("[材料代号] = '{0}'", dr1("材料代号"))
dr2 = DataTables("电池检验记录").Find(exp)
加好友 
发短信
Post By：2017/2/14 12:49:00 [显示全部帖子]
