以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助一段代码借在何处  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6098)
--  作者：shixia
--  发布时间：2010/3/4 21:34:00
--  求助一段代码借在何处
有两个表,一个是"业务"表,一个是"收费"表,用ACCESS数据源,在收费表的DataColChanged表事件中设置如下代码,达到两个表的相同字段值自动从业务表中录入到收费表中:
If e.DataCol.Name = "票据号码" Then
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    cmd.C
    cmd.CommandText = "SELECT DISTINCT 文号,标的额,任务人,业务类型,委托单位,当事人,票据号码 From {业务}"
    dt = cmd.ExecuteReader()
    Dim dr AS DataRow = dt.find("[票据号码]=" & e.datarow("票据号码") )
    If dr isnot nothing then
        dr("文号")=e.DataRow("文号")
        dr("标的额")=e.DataRow("标的额")
        dr("任务人")=e.DataRow("任务人")
        dr("业务类型")=e.DataRow("业务类型")
        dr("委托单位")=e.DataRow("委托单位")
    End If
End If


经测试无法运行,错误发生在执行dr("文号")=e.DataRow("文号")代码时,提示:不存在名称为""的DataTable
--  作者：mr725
--  发布时间：2010/3/4 22:38:00
--  
 dr("文号")=e.DataRow("文号")   改为 e.DataRow("文号") = dr("文号")