1000=x2000，并不是(1000=30002000)为真
为定南等地区用户提供了全套网页设计制作服务，及定南网站建设行业解决方案。主营业务为成都网站设计、成都网站建设、定南网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
而是先判断（1000=3000）为真也就是1，然后(12000)为真
你搞反了！
TextBox1.Text=z1
TextBox2.Text=z2
改成
z1=CDouble(TextBox1.Text)
z2=CDouble(TextBox2.Text)
DT.Rows.ToString未必是指结果集中的所有数据，也许只是一行中所有的，或是一列中所有的
保险起见，可以一格格枚举
dim a as boolean=true
Dim row As DataRow
For Each row In DT.Rows
Dim column As DataColumn
For Each column In DT.Columns
if row(column).contains("Agree") then a=false
Next column
Next row
if a then
Me.rblAgReject.Items(0).Enabled = False
else
Me.rblAgReject.Items(0).Enabled = True
end if
msgbox的返回值是一个枚举值
if msgbox （“”）=1 then
end if
iff 是判断语句 他等同于
if 。。。。 then
执行语句1
else
执行语句2
end if
与他对应iff用法
iff（。。。。 ，执行语句1 ，执行语句2）
