以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教：自定义函数错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74537)
--  作者：feiyu988
--  发布时间：2015/9/13 18:51:00
--  请教：自定义函数错误

下面的一段代码，老是出错，自认是出在列名的引用上，不知咋改，哪位老师给指导一下

 

Dim txt As String = Args(0) \'筛选的数据表名称
Dim txt1 As String = Args(1) \'要筛选的列

Dim dr As DataRow = DataTables("yhgl").SQLFind("yhzh = \'"& _yhzh &"\'")

 

DataTables(txt).LoadFilter = "txt1 = \'" & dr("zybm") & "\'"
DataTables(txt).Load()
--  作者：大红袍
--  发布时间：2015/9/13 19:54:00
--  

Dim txt As String = Args(0) \'筛选的数据表名称
Dim txt1 As String = Args(1) \'要筛选的列

Dim dr As DataRow = DataTables("yhgl").SQLFind("yhzh = \'"& _yhzh &"\'")


If dr IsNot Nothing Then
    DataTables(txt).LoadFilter = txt1 & " = \'" & dr("zybm") & "\'"
    DataTables(txt).Load
End If