0

这是在我的 OfficeEquipment.Frm

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 电子办公设备历史

这是我的模块功能

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
4

1 回答 1

0

基本上只需使用您拥有的类和功能....

 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 ，如果它达到了这么远，请将鼠标悬停在它上面，然后单击放大镜并查看数据是否存在或是否有您的列名，如果是这样，您很好......

于 2013-05-07T02:12:53.287 回答