怎样写代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Double是双精度小数，那么整数的英文是什么，请指教。

数据类型

Visual Basic 有以下数据类型：

数据类型	说明
String	任意个数的字符，常称为字符串。
Date	日期时间
Boolean	逻辑值，逻辑值就两个，分别是True(是)和False(否)。
Byte	微整数，介于 0 到 255 之间的微整数
Short	短整数，介于 –32768 到 32767 之间的短整型
Integer	整数，介于 –2147483648 到 2147483647 之间的整数。
Long	长整数，值的范围为 -9223372036854775808 到 9223372036854775807。
Single	单精度小数，单精度小数，有效数字为7位。
Double	双精度小数，有效数字为15位。
Decimal	高精度小数，有高达28位的有效数字，适用于要求使用大量有效的整数及小数位数并且没有舍入错误的财务计算。
Object	通用型，可存放任何类型的数据。

数值类型较多，一般情况下，小数用Double型，整数用Integer型即可，如果整数范围较大，可以用Long型。
我们最常用的数据类型是：String、Date、Boolean、Integer、Long、Double。

什么是有效数字？

简单地说，就是从左边第一个不是0的数字算起，直到最后一个数字，就是一个数值的有效数字，例如1.324的有效数字是4位(1、3、2、4)，1.3240的有效数字是5位(1、3、2、4、0)，而0.024的有效数字是两位(2、4)。

求数字列A加数字列B=数字列C的完整代码？

以下是引用欧洲之巅在2015/11/29 12:53:00的发言：
求数字列A加数字列B=数字列C的完整代码？

无语，人家已经写给你了啊。

初学者不要乱写代码，先去看一下视频教程和帮助文档啊。

If e.DataCol.Name = "初客赔" Then

If e.Newvalue > = 1.80 AndAlso e.Newvalue < = 2.00 Then

e.DataRow("公式") = "客2.00-2"

If e.DataCol.Name = "初平赔" Then

If e.Newvalue > = 3.20 AndAlso e.Newvalue < = 3.50 Then

e.DataRow("公式") = "客2.00-2"

End If

请帮忙看一下上面的代码？我想条件1和条件共存，结果都是e.DataRow("公式") = "客2.00-2" 。中间好像缺少了了什么。

条件1和条件2共存缺少连接，请帮我连接一下

If e.DataCol.Name = "初客赔" Then
    If e.Newvalue >= 1.80 AndAlso e.Newvalue <= 2.00 OrElse e.Newvalue >= 3.20 AndAlso e.Newvalue <= 3.50 Then
        e.DataRow("公式") = "客2.00-2"
    End If
End If

你写的代码少了前提条件e.DataCol.Name = "初平赔"

If e.DataCol.Name = "初客赔" Then 列1

If e.Newvalue > = 1.80 AndAlso e.Newvalue < = 2.00 Then 条件1

e.DataRow("公式") = "客2.00-2"

If e.DataCol.Name = "初平赔" Then 列2

If e.Newvalue > = 3.20 AndAlso e.Newvalue < = 3.50 Then 条件2

e.DataRow("公式") = "客2.00-2"

End If

我说的是既要符合列1的条件1，还要符合列2的条件，符合以上的话"公式"列就显示 "客2.00-2"

就是“初平赔”有初平赔的条件，初客赔有“初客赔”的条件。不是“初平赔”同时符合两个条件。而是要符合“初平赔”的条件，还要符合“初客赔”的条件。最后得到e.DataRow("公式") = "客2.00-2"

If e.DataCol.Name = "初客赔"
    If e.Newvalue > = 1.80 AndAlso e.Newvalue < = 2.00
        e.DataRow("公式") = "客2.00-2"
    End If
End If

If e.DataCol.Name = "初平赔"
    If e.Newvalue > = 3.20 AndAlso e.Newvalue < = 3.50
        e.DataRow("公式") = "客2.00-2"
    End If
End If

主题：怎样写代码