专家坐堂-subFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  sub  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55529)

--  作者：bagabaga
--  发布时间：2014/8/18 20:38:00
--  sub
请问，可以在程序段中定义子程序sub吗，不是全局变量，在本段程序中调用

Dim Sub DelRows(ByVal dt As DataTable)
Dim m As Integer = dt.DataRows.count
If m > 0
For i As Integer = 1 To m
dt.DataRows(m-i).Delete
Next
End If
End Sub

--  作者：有点甜
--  发布时间：2014/8/18 20:40:00
--

不能，只能在全局代码那里定义sub

--  作者：shandianyingzi
--  发布时间：2018/12/1 1:06:00
--  like this

Public Sub DelRows(ByVal dt As DataTable)
Dim m As Integer = dt.DataRows.count
If m > 0
For i As Integer = 1 To m
dt.DataRows(m-i).Delete
Next
End If
End Sub

--  作者：有点蓝
--  发布时间：2018/12/1 8:39:00
--
放到全局代码即可