以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教老大,这个提示是什么意思  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6102)

--  作者:shixia
--  发布时间:2010/3/5 13:49:00
--  请教老大,这个提示是什么意思

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看
发生的过程如下:
有两个表,一个是业务表,一个是收费表,业务表中有票据号码等字段,收费表中有文号 等字段
在业务表的DataColChanged事件中,设置如下代码,达到,如果在收费表中有同文号的行,就把该行的票据号码自动录入到业务表同文号行的票据号码字段

If e.DataCol.Name="基准日期" Then
    Dim dr As DataRow = DataTables("收费").Find("[文号]=" & e.DataRow("文号") )
    If dr Isnot Nothing Then
        e.DataRow("票据号码")=dr("票据号码")
        e.DataRow("收费金额")=dr("收费金额")
    End If
End If

--  作者:狐狸爸爸
--  发布时间:2010/3/5 14:22:00
--  
呵呵,没有看出啥问题,用一个简单的表格实例来说明比较好。
--  作者:baoxyang
--  发布时间:2010/3/5 14:26:00
--  
应是Dim dr As DataRow = DataTables("收费").Find("[文号]= \'" & e.DataRow("文号") & "\' ")