重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
是不是这样:
我们注重客户提出的每个要求,我们充分考虑每一个细节,我们积极的做好网站设计制作、成都网站制作服务,我们努力开拓更好的视野,通过不懈的努力,创新互联赢得了业内的良好声誉,这一切,也不断的激励着我们更好的服务客户。 主要业务:网站建设,网站制作,网站设计,小程序定制开发,网站开发,技术开发实力,DIV+CSS,PHP及ASP,ASP.Net,SQL数据库的技术开发工程师。
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要和你的程序放在同一文件夹中。
在下拉菜单的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
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
参考如下代码
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+"。");
});
})
InvokeScript的第一个参数是方法名,不带参数不带符号,第二个是参数集合。
InvokeScript("ChangeField",{"this.form"})
以上信息供参考。
设置一个全局变量:
Public item As String
然后在第一个窗口那里取:
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(这个不可改内容的设定可以在建立ComboBox的时候就设定了)
ComboBox2.Items.Add(item) (加入内容,你或者也可以用别的,比如insert,这个可以加到指定的位置)
ComboBox2.SelectedItem = item (显示那个刚加进来的内容)
这样应该可以了,建议你多看MSDN。