Dim dst As WinForm.DataList = e.Form.Controls("DataList1") Dim dr as DataRow = dst.Current '获得选定行 If dr Is Nothing Then Return End If Dim Index As Integer = Tables("调坯单").FindRow(dr) '获得选定行在Tables("订单")中的位置 If Index >=0 Then '如果选定行在Tables("订单")中存在 Tables("调坯单").Position = Index End If
加好友 
发短信
Post By：2009/2/5 15:23:00 [显示全部帖子]
