iff 是判断语句 他等同于
创新互联专注于申扎企业网站建设,响应式网站建设,商城网站定制开发。申扎网站建设公司,为申扎等地区提供建站服务。全流程定制网站建设，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
if 。。。。 then
执行语句1
else
执行语句2
end if
与他对应iff用法
iff（。。。。 ，执行语句1 ，执行语句2）
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
你搞反了！
TextBox1.Text=z1
TextBox2.Text=z2
改成
z1=CDouble(TextBox1.Text)
z2=CDouble(TextBox2.Text)
