Vb.net 要在windows窗体上使用的调用函数

这是我的办公设备

Public Function Loadfunction()
dt = Functions.LoadData()
End Function

这就是上面代码的错误

警告1函数“Loadfunction”不会在所有代码路径上返回值。使用结果时，可能会在运行时发生空引用异常。C:\Documents and Settings\IJDinglasan\My Documents\Visual Studio 2008\Projects\Electronic Office Equipment History\Electronic Office Equipment History\Update Office Equipment Profile.vb 9 5 Electronic Office Equipment History

这在我的模块函数中

Private Function LoadData() As DataTable

Using sqlconn = New SqlClient.SqlConnection("server = SKPI-APPS1;" & _
                                             "Database = EOEMS;integrated security=true")
Dim dt As New DataTable
sqlconn.Open()
Dim da As New SqlDataAdapter("SELECT * FROM tblOfficeEquipmentProfile", sqlconn)
da.Fill(dt)
Return dt
End Using
End Function

---

基本上只需使用您拥有的类和函数

 Dim dt As DataTable
 dt = yourclass.LoadData()

现在dt是你的桌子，你可以在你喜欢的地方使用

编码器

编辑

无论您在何处拥有函数（LoadData），都需要引用该类和函数。例如：假设我的主类是：frmMain.vb，我的函数类是：frmStudents，我想得到这个函数

所以。。。。在frmMain.vb上，您需要声明另一个DataTable并分配它。。。。见下文

 Dim dt As DataTable
 dt = frmStudents.LoadData()

---

我们从frmStudents调用函数，并用数据填充新表。您需要做的是在：dt=frmStudents.LoadData（）上设置一个断点并运行您的解决方案。当你到达那条线时，按F-11键，看看它是否会跳到你的另一个拥有你的函数的类。然后按F-11并继续单步执行，查看是否抛出错误。在：返回函数中的dt时，将鼠标悬停在它上面，如果它走得这么远，请单击放大镜，查看数据是否存在或是否有您的列名，如果是这样的话，你可以继续…

先生，你的类是class1.vb？是的，任何类都可以保存你的函数。我将它命名为函数，使它变暗为datatable dt=functions.loadData，但不起作用。你可以在函数上设置断点并逐步执行，你的问题就在那里。加载数据后，确保用括号（）将其关闭。