vb(倉(cāng)庫(kù)管理系統(tǒng)源代碼)-資料下載頁(yè)
2024-08-04 01:30本頁(yè)面
【正文】 If = False Then MsgBox 該編號(hào)已存在，不能追加！ Else str1 = Insert Into jlbh (FtextBHSJ,FtextPMSJ,FtextGGSJ,FtextDWSJ,FtextDJSJ) str1 = str1 + Values(39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。) str1 (Trim()) (Trim()) (Trim()) (Trim()) (Trim()) MsgBox 恭喜您，添加成功!End If Set Rs = Nothing Set CN = Nothing = = = = = End IfEnd Sub‘以下是listbox循環(huán)選中程序Private Sub listBHSJ1_Click() If 0 Then For i = 1 To 0 Step 1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDJSJ1_Click() If 0 Then For i = 1 To 0 Step 1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDWSJ1_Click() If 0 Then For i = 1 To 0 Step 1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listGGSJ1_Click() If 0 Then For i = 1 To 0 Step 1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listPMSJ1_Click() If 0 Then For i = 1 To 0 Step 1 If (i) Then (i) = True End If Next End IfEnd Sub
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1