module2.bas

一套鞋厂的仓库管理系统

Attribute VB_Name = "Module2"
Option Explicit

Public Sub ComboListFill(vCombo As ImageCombo, vType As String)
    LibRst.Open "Select * from Libilary Where Type='" & Trim(vType) & "'", GetConnect, adOpenForwardOnly, adLockReadOnly
    vCombo.ComboItems.Clear
    vCombo.ComboItems.Add , "ComboNew", "无"
    vCombo.ComboItems.Add , "ComboLine", "——————————"
    Do Until LibRst.EOF
        If Left(LibRst![Code], 1) >= "0" And Left(LibRst![Code], 1) <= "9" Then
            vCombo.ComboItems.Add , "_" & LibRst![Code], LibRst![name]
        Else
            vCombo.ComboItems.Add , LibRst![Code], LibRst![name]
        End If
        LibRst.MoveNext
    Loop
    LibRst.Close
End Sub

Public Function ComboListChick(vCombo As ImageCombo, vType As String) As String
On Error GoTo err_Sub
    vCombo.Text = vCombo.SelectedItem.Key
    If Left(vCombo.Text, 1) = "_" Then
        vCombo.Text = Mid(vCombo.Text, 2, 100)
    End If
    If vCombo.Text = "ComboNew" Then
        vCombo.Text = ""
        SendString = vType
        frmLibDataWrite.Show vbModal
        If FindReturnCodeString = "" Then
            vCombo.Text = ""
        Else
            vCombo.Text = FindReturnCodeString
            If Left(FindReturnCodeString, 1) >= "0" And Left(FindReturnCodeString, 1) <= "9" Then
                vCombo.ComboItems.Add , "_" & FindReturnCodeString, FindReturnNameString
            Else
                vCombo.ComboItems.Add , FindReturnCodeString, FindReturnNameString
            End If
        End If
    End If
    If vCombo.Text = "ComboLine" Then
        vCombo.Text = ""
    End If

Exit_Sub:
    Exit Function

err_Sub:
    vCombo.Text = ""
    GoTo Exit_Sub
    
End Function