Dim dcck As WinForm.ComboBox = e.Form.Controls("调出仓库")
Dim drck As WinForm.ComboBox = e.Form.Controls("调入仓库")
Dim mddc As List(Of DataRow)
Dim mddr As List(Of DataRow)
Dim kcdr As List(Of DataRow)
Dim gbdr As List(Of DataRow)
Dim xsdr As List(Of DataRow)
Dim zcck As List(Of DataRow)
Dim zcrk As List(Of DataRow)
Dim zccmx As List(Of DataRow)
Dim zcrmx As List(Of DataRow)
mddc=DataTables("买断款").Select("仓库='"& dcck.Text &"'")
mddr=DataTables("买断款").Select("仓库='"& drck.Text &"'")
kcdr=DataTables("库存表").Select("仓库='"& drck.Text &"'")
gbdr=DataTables("改标款").Select("仓库='"& drck.Text &"'")
xsdr=DataTables("销售明细").Select("仓库='"& drck.Text &"'")
zcrmx=DataTables("转仓明细").Select("调入仓库='"& drck.Text &"'")
zccmx=DataTables("转仓明细").Select("调出仓库='"& drck.Text &"'")
zcck=DataTables("转仓出明细").Select("仓库='"& drck.Text &"'")
zcrk=DataTables("转仓入明细").Select("仓库='"& drck.Text &"'")
Dim Filter As String
If dcck.Text.Length>0 AndAlso drck.Text.Length>0 Then
If dcck.Text=drck.Text Then
MessageBox.Show("调出仓库和调入仓库不能相同")
Else
End If
Else
MessageBox.Show("请先选择调入调出仓库")
End If
加好友 
发短信
Post By：2018/9/8 15:30:00 [只看该作者]
