包含vb.net不定项数组的词条

vb.net 不定长字符数组

vb.net已经去掉了控件数组这个类，不过有个代替该方式的一个属性：tag，你可以把这些关联的tag属性设置为同一标记，如：a。然后遍历所有的checkbox并且tag为a的则选定：

protected

sub

chkall_click()

for

each

ctl

as

control

in

me.controls

''如果checkbox在一个容器里，比如groupbox，那可以用groupbox.controls

if

ctl.gettype().name.tolower()

=

"checkbox"

then

ctype(ctl,

checkbox).checked

=

checkbox3.checked

end

if

next

end

sub

vb.net 数组的定义方法

1、点击VS工具。

2、打开后，新建一个Windows窗体应用程序。

3、新建完毕后，如图所示。

4、拖动一个按钮。

5、定义数组最常见的方法，如图示。

6、运行后，点击按钮，弹出提示正常。

7、定义数组第二种方法，属于动态的方法。

8、运行后，点击按钮，数组成功输出。

求教啊求教，关于在VB.NET中不定项多条件查询的难题

这个只能是一一判断的：

为了叙述简单，假设有两个可选条件，内容在： TextBox1(姓名)、TextBox2（部门）

主要是构造 Sql的Where子句，那么：

Dim MySqlWhere As String

MySqlWhere=""

If TextBox1.Text"" Then

MySqlWhere= " Where 姓名 = '" TextBox1.Text "'"

End If

If TextBox2.Text"" Then

if MySqlWhere="" Then

MySqlWhere= " Where 部门 = '" TextBox1.Text "'"

Else

MySqlWhere= MySqlWhere " And 部门 = '" TextBox1.Text "'"

End If

End If

'如果还有第3，第4，那只能这样了：

If TextBox3.Text"" Then

if MySqlWhere="" Then

MySqlWhere= " Where 字段3 = '" TextBox3.Text "'"

Else

MySqlWhere= MySqlWhere " And 字段3 = '" TextBox3.Text "'"

End If

End If

......

If TextBoxn.Text"" Then

if MySqlWhere="" Then

MySqlWhere= " Where 字段n = '" TextBoxn.Text "'"

Else

MySqlWhere= MySqlWhere " And 字段n = '" TextBoxn.Text "'"

End If

End If

注意：对于字符类型的字段，当然要用单引号，上面那样的，但是对于数值类型，就不要这个单引号的；但是对于日期类型，那么与字符类型不同的是，把前后的2个单引号，改为井号就是“#”， 这是很多初学者容易忽略的，也是很多教科书上不提的问题。

对于文本框，由于.NET不提供控件数组，但是还是可以用语句来实现类似数组的操作，这样以上IF语句，就可以简化。