标题：3月5日更新

原来的 If Tables("表").Current("列") is nothing then 怎样来改？？

Dim lm As string = Tables("表").Current("列")
       If lm.IsNull（"列"） then

是这样吗？？？

顶一下.

IF Tables("表").Current.IsNull("列") Then
End If

原来在afteredit事件中的代码，原 = nothing 都改为 = "" ,（编号和品名都有或都没有内容）现在不能执行啦～
Dim fxa As string = Tables("表A").Current("编号")
Dim fxb As DataRow = DataTables("表B").Find("[编号]  = '" & ppdm & "'")
'if e.Col.Name = "编号" Then 
    if fxb is nothing andalso fxa isnot nothing then  （红色这个怎么改？fxb =""提示错误啊）
         Messagebox.Show("没有该编号!", "提示",MessageBoxButtons.OK) 
          e.Row("品名") = ""       
    elseif e.Row.IsNull("编号") Then
         e.Row("品名") = ""
    Else 
        e.Row("品名") = fxb("品名") 
        Sendkeys.Send("{right}") 
    End If
End If

声明一下： fxb is nothing  不用改，照样执行！！～～ 是不是因为fxb是表B的原因？
                条件中反而andalso fxa isnot nothing 在这里不起作用了？？？

  单独使用 Tables("表A").Current("编号") = nothing  可以执行！～ 为何放在 If 后就不可以呢？？？

看26楼的声明～～

        If dr1("配合量") = 0 And dr1("系数") = 0 And dr1("单价") <> 0 Then
            dr1("金额") = dr1("定额用量") * dr1("单价")
        ElseIf dr1("配合量") = 0 And dr1("系数") <> 0 And dr1("单价") <> 0 Then
            dr1("金额") = dr1("系数") * dr1("定额用量") * dr1("单价")
        End If

这样也可以。与易表一样，看着也好理解。

哈哈。。。  这样简单～   我的andalso fxa isnot nothing 直接改为andalso fxa <> "" ok啦！！！～

不过 你的‘公式’里的列值可要及时补 0 噢～

我没有补 0  也一样计算。

是的，多数情况下，现在比以前更方便，只是判断空值的时候需要用标准的方法判断而已。