自定义函数中使用ExecuteReader得到DataTable，但引用函数时提示：不存在名为“dt”的DataTable - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim no As String '单据编码

Dim nm As String = Args(0) '单据类型

Dim cmd1 As New SQLCommand

Dim cmd2 As New SQLCommand

cmd1.C

cmd2.C

Dim Key As Integer

cmd1.commandText = "Select [顺序号] From [ss_num] Where [单据类型] = '" & nm & "'"

Key = cmd1.ExecuteScalar() '从后台获得顺序号

cmd2.commandText = "Update [ss_num] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [单据类型] = '" & nm & "'"

If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号

Exit Do '更新成功则退出循环

End If

Loop

Dim cmd4 As New SQLCommand

Dim dt As DataTable

cmd4.C

cmd4.CommandText = "Select * From [ss_num] Where [单据类型] = '" & nm & "'"

dt = cmd4.ExecuteReader()

Dim dr As DataRow

dr = DataTables("dt").Find("[单据类型] = '" & nm & "'")

If dr IsNot Nothing Then '如果找到的话

Dim s As New String("0", dr("序号位数"))

no = Format(Args(2),dr("编码规则")) & "-" & Format(Key,s) '生成编码

End If

Return no

[此贴子已经被作者于2013-2-5 8:39:34编辑过]

主题：自定义函数中使用ExecuteReader得到DataTable，但引用函数时提示：不存在名为“dt”的DataTable