13518219792
參考如下代碼
創新互聯公司專注為客戶提供全方位的互聯網綜合服務，包含不限于成都做網站、成都網站設計、重慶網絡推廣、成都小程序開發、重慶網絡營銷、重慶企業策劃、重慶品牌公關、搜索引擎seo、人物專訪、企業宣傳片、企業代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們最大的嘉獎；創新互聯公司為所有大學生創業者提供重慶建站搭建服務，24小時服務熱線：18982081108，官方網址：www.cdcxhl.com
1
2
$("select").val(); // 選中項目的value值
$("select option:checked").text(); // 選中項目的顯示值
示例如下：
創建Html元素
1
2
3
4
5
6
7
8
請選擇：
select id="sel"
option value="1"選項1/option
option value="2"選項2/option
option value="3"選項3/option
option value="4"選項4/option
/select
input type="button" value="點擊查看被選項目"
編寫jquery代碼
1
2
3
4
5
6
7
$(function(){
$("input").click(function() {
a = $("#sel").val();
b = $("#sel option:checked").text();
alert("被選項目的值："+a+"，被選項目的顯示值："+b+"。");
});
})
您可以選擇使用CheckListBox控件。CheckListBox支持多選。
由于不清楚您用什么語言，所以我寫了VB.net?、C#.net
vb.net?Code
'?Determine?if?there?are?any?items?checked.
If?CheckedListBox1.CheckedItems.Count??0?Then
'?If?so,?loop?through?all?checked?items?and?print?results.
Dim?x?As?Integer
Dim?s?As?String?=?""
For?x?=?0?To?CheckedListBox1.CheckedItems.Count?-?1
s?=?s??"Checked?Item?"??(x?+?1).ToString??"?=?"??CheckedListBox1.CheckedItems(x).ToString??ControlChars.CrLf
Next?x
MessageBox.Show(s)
End?If
C#.net?Code
//?Determine?if?there?are?any?items?checked.
if(checkedListBox1.CheckedItems.Count?!=?0)
{
//?If?so,?loop?through?all?checked?items?and?print?results.
string?s?=?"";
for(int?x?=?0;?x?=?checkedListBox1.CheckedItems.Count?-?1?;?x++)
{
s?=?s?+?"Checked?Item?"?+?(x+1).ToString()?+?"?=?"?+?checkedListBox1.CheckedItems[x].ToString()?+?"\n";
}
MessageBox.Show?(s);
}
vb.net?Code
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?selectstr?As?String?=?""
For?i?As?Integer?=?0?To?Me.CheckedListBox1.Items.Count?-?1
If?Me.CheckedListBox1.GetItemChecked(i)?Then
selectstr?=?Me.CheckedListBox1.Items(i).ToString
End?If
Next
MsgBox(selectstr)
End?Sub
希望能幫到您。
Public Class Form1
Dim b(9)() As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a(9) As String '這個數組用來存儲第一個下拉框的全部值。
For i = 0 To 9
a(i) = i '賦值。
ReDim b(i)(9) '定義選擇第一個下拉框的值時，第二個下拉框分別有十個值。
For j = 0 To 9
b(i)(j) = i '賦值。
Next
Next
ComboBox1.Items.AddRange(a)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
ComboBox2.Items.AddRange(b(ComboBox1.SelectedIndex))
End Sub
End Class
設置一個全局變量：
Public item As String
然后在第一個窗口那里取：
item = ComboBox1.SelectedItem.ToString()
然后加到第二個窗口那里：
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList（這個不可改內容的設定可以在建立ComboBox的時候就設定了）
ComboBox2.Items.Add(item) （加入內容，你或者也可以用別的，比如insert，這個可以加到指定的位置）
ComboBox2.SelectedItem = item （顯示那個剛加進來的內容）
這樣應該可以了，建議你多看MSDN。
在下拉菜單的SelectionChangeCommitted事件中調用Button2_Click
Private Sub 選擇列名ComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles 病情ComboBox.SelectionChangeCommitted
Button2_Click(sender, e)
End Sub
我不是很懂你的意思，如果你要用combox里的數據那就在and like之間加個
選擇列名ComboBox.text
不就得了
Then str = str " and " 選擇列名ComboBox.text " like '%" TextBox6.Text
是不是這樣：
private
sub
form_load()
dim
r
as
string
open
"c:\1.txt"
for
input
as
#1
'假設你的文檔是c:\1.txt
do
while
not
eof(1)
line
input
#1,r
combo1.additem
r
loop
close
#1
end
sub
如果這樣，就直接用1.txt，但要注意的是你的1.txt要和你的程序放在同一文件夾中。
