56 lines
1.9 KiB
VB.net
56 lines
1.9 KiB
VB.net
|
Imports System.Windows.Forms
|
|||
|
|
|
|||
|
|
Public Class dlg_StoreSelect
|
|||
|
|
Dim rTable As New DataTable
|
|||
|
|
Dim m_SQL As New CStore
|
|||
|
|
Dim m_AddressList As New ArrayList
|
|||
|
|
Dim 库位表 As New ArrayList
|
|||
|
|
Public m_SelPosName As String = ""
|
|||
|
|
|
|||
|
|
Private Function GetStoreList() As Boolean
|
|||
|
|
combo_Store.Items.Clear()
|
|||
|
|
m_AddressList.Clear()
|
|||
|
|
库位表.Clear()
|
|||
|
|
|
|||
|
|
If m_SQL.QueryAll(rTable) = ERROR_CODE.SUCCESS Then
|
|||
|
|
For i As Integer = 0 To rTable.Rows.Count - 1
|
|||
|
|
combo_Store.Items.Add(rTable.Rows(i).Item(CStore.COLS.仓库名称))
|
|||
|
|
m_AddressList.Add(rTable.Rows(i).Item(CStore.COLS.仓库地点))
|
|||
|
|
库位表.Add(rTable.Rows(i).Item(CStore.COLS.仓库库位表))
|
|||
|
|
Next
|
|||
|
|
Return True
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Return False
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
|
|||
|
|
If combo_Store.Text.Length = 0 Then
|
|||
|
|
MsgBox("请选择仓库!")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
m_SelPosName = 库位表.Item(combo_Store.SelectedIndex)
|
|||
|
|
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub dlg_StoreSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
GetStoreList()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub combo_Store_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combo_Store.SelectedIndexChanged
|
|||
|
|
If combo_Store.SelectedIndex >= 0 Then
|
|||
|
|
lblAddress.Text = m_AddressList.Item(combo_Store.SelectedIndex)
|
|||
|
|
Else
|
|||
|
|
lblAddress.Text = ""
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
End Class
|