189 8069 5689
是不是这样：
我们注重客户提出的每个要求，我们充分考虑每一个细节，我们积极的做好网站设计制作、成都网站制作服务，我们努力开拓更好的视野，通过不懈的努力，创新互联赢得了业内的良好声誉，这一切，也不断的激励着我们更好的服务客户。 主要业务：网站建设,网站制作,网站设计,小程序定制开发,网站开发,技术开发实力，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。