16,721
社区成员




Public Function PCBALineDATA() As ADODB.Recordset
Dim Line As String
Dim sqlLine As String
Dim rsTCBALine As ADODB.Recordset
sqlLine = ""
sqlLine = "SELECT LINEID FROM MLINEM"
Set rsTCBALine = OffMUSE(sqlLine, DED.cnWIP)
If rsTCBALine.RecordCount <> 0 Then
Line = rsTCBALine.Fields("LINEID")
DataCombo1.BoundText = Line
Else
MsgBox "PCBA所在拉別綁定失敗,請檢查數據庫連接", vbExclamation, Me.Caption
End If
End Function