With Tables("表B")
    Dim r As Integer
    r = .Find("", .RowSel + 1, "产品", False, False, True) \'反回空值行行号
    If r > - 1 Then \'如果找到符合条件的行
        .Rows(r)("产品") = "1988" \'则向该行产品列写入"1988"
    End If
End With

这个FIND里的查询内容如何写为空值，就是该行如果是空的话就返回行号。

用FindRow比较方便：

With Tables("表B")
    Dim r As Integer
    r = .FindRow("产品 Is Null",0,False) \'反回空值行行号
    If r > - 1 Then \'如果找到符合条件的行
        .Rows(r)("产品") = "1988" \'则向该行产品列写入"1988"
    End If
End With

关于FindRow，可以看看:

http://help.foxtable.com/topics/0553.htm

提示出错了。。。---------------------------
错误
---------------------------
代码执行出错，错误信息：

System.Data.EvaluateException: Cannot find column [系统数据].

   at System.Data.NameNode.Bind(DataTable table, List`1 list)

   at System.Data.BinaryNode.Bind(DataTable table, List`1 list)

   at System.Data.DataExpression.Bind(DataTable table)

   at System.Data.DataExpression..ctor(DataTable table, String expression, Type type)

   at System.Data.Select..ctor(DataTable table, String filterExpression, String sort, DataViewRowState recordStates)

   at System.Data.DataTable.Select(String filterExpression, String sort)

   at Foxtable.Table.FindRow(String O01l011OO0, Int32 OOOOll01, Boolean Ol10)

   at UserCode.Test()
---------------------------
确定  
---------------------------
另外怎么上图

这是代码：

With Tables("系统数据")
    Dim pdkz As Integer
    pdkz = .FindRow("系统数据 Is Null",0,False) \'返回空值行行号
    If pdkz > - 1 Then \'如果找到符合条件的行
        .Rows(pdkz)("乡镇名称") = "4455" \'则向该行产品列写入"1988"
    End If
Output.show(pdkz)
End With

晕，原来是我自已搞错了，不好意思

我把列名打错为表名了("系统数据 Is Null",0,False)

应该是("乡镇名称 Is Null",0,False)

看这个：

http://www.microsoft.com/downloads/zh-cn/details.aspx?FamilyID=39C8B63B-F64B-4B68-A774-B64ED0C32AE7&displaylang=zh-cn