str = "insert into out ( 姓名 , 租出日期 , 規(guī)格 , 數(shù)量 )values('" txtname.Text "','" txtday.Text "','" txtnorm.Text "','" txtamount.Text "')"
創(chuàng)新互聯(lián)建站是一家專業(yè)提供舞鋼企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站制作、網(wǎng)站建設(shè)、H5頁面制作、小程序制作等業(yè)務(wù)。10年已為舞鋼眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計(jì)公司優(yōu)惠進(jìn)行中。
你的SQL語句不正確!這是我改后的,你測(cè)測(cè)!
VB.NET可選參數(shù)的默認(rèn)值必須是一個(gè)常數(shù)表達(dá)式。
過程定義中跟在可選參數(shù)后的每個(gè)參數(shù)也都必須是可選的。
下面的語法顯示帶VB.NET可選參數(shù)的過程聲明:
Sub sub name(ByVal parameter 1 As data type 1,
Optional ByVal parameter 2 As data type 2 = default value)
調(diào)用帶VB.NET可選參數(shù)的過程
過程在運(yùn)行時(shí)無法檢測(cè)到給定的參數(shù)是否已被省略,或者調(diào)用代碼是否已顯式提供默認(rèn)值。如果需要弄清楚這一點(diǎn),可以設(shè)置一個(gè)不可能的值作為默認(rèn)值。下面的過程定義了可選參數(shù) office,并測(cè)試其默認(rèn)值 QJZ 以查看它在調(diào)用中是否已被省略:
Visual Basic
Sub notify(ByVal company As String, Optional ByVal office As String = "QJZ")
If office = "QJZ" Then
Debug.WriteLine("office not supplied -- using Headquarters")
office = "Headquarters" End If
' Insert code to notify headquarters or specified office.
End Sub
如果可選參數(shù)是像 String 這樣的引用類型,只要它不是該變量所預(yù)期的值,就可以使用 Nothing 作為默認(rèn)值。
VB.NET可選參數(shù)和重載
定義帶可選參數(shù)的過程的另一種方法是使用重載。如果有一個(gè)可選參數(shù),可以定義過程的兩個(gè)重載版本,一個(gè)接受此參數(shù),另一個(gè)則不帶參數(shù)。此方法隨可選參數(shù)數(shù)目的增加而變得更復(fù)雜。然而,這樣做的優(yōu)點(diǎn)是可以完全確定調(diào)用程序是否提供了每個(gè)VB.NET可選參數(shù)。
首先,combobox控件里的項(xiàng)目編號(hào),從0開始,既第1項(xiàng)是0,第2項(xiàng)是1,......
所以,我不知道你這個(gè)1是不是指第2項(xiàng)?
其次,要讓Combobox.Text的值變化為第1項(xiàng)的內(nèi)容,你應(yīng)該這樣:
Combobox.Text = Combobox.items(1) '注意,這個(gè)是顯示第2項(xiàng)的內(nèi)容
這樣, Combobox.SelectIndex的值就是1了。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DateTimePicker1.Format = DateTimePickerFormat.Custom
DateTimePicker1.CustomFormat = " "
End Sub
Private Sub DateTimePicker1_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.CloseUp
DateTimePicker1.Format = DateTimePickerFormat.Long
End Sub
End Class