VB.NET中如何用模块内同一函数向不同窗体的三个ListView传数据

完全可以复用你写的数据库函数，核心思路是让函数接受目标ListView控件作为参数，这样就能统一为Form1、Form2、Form3的ListView填充数据，不用重复写数据获取逻辑。

修改函数实现 #

把原来绑定Form1.ListView的逻辑改成通用逻辑，将目标ListView作为参数传入：

Public Sub PopulateListView(targetListView As ListView)
    ' 保留你原有的数据库连接、查询逻辑
    Dim dbConn As ADODB.Connection
    Dim dataRS As ADODB.Recordset
    Set dbConn = New ADODB.Connection
    dbConn.Open "你的数据库连接字符串" ' 替换成你实际的连接串
    Set dataRS = dbConn.Execute("SELECT 字段1, 字段2, 字段3 FROM 你的数据表") ' 替换成你的查询语句

    ' 清空目标ListView，避免重复数据
    targetListView.ListItems.Clear

    ' 遍历记录集，填充到传入的ListView
    Dim listItem As ListItem
    Do While Not dataRS.EOF
        ' 添加主项（第一列）
        Set listItem = targetListView.ListItems.Add(Text:=dataRS!字段1)
        ' 添加子项（后续列，根据你的ListView列数调整）
        listItem.SubItems(1) = dataRS!字段2
        listItem.SubItems(2) = dataRS!字段3
        dataRS.MoveNext
    Loop

    ' 释放资源
    dataRS.Close
    Set dataRS = Nothing
    dbConn.Close
    Set dbConn = Nothing
End Sub

在各窗体中调用 #

• Form1中调用：

  Private Sub Form_Load()
      PopulateListView Me.ListView1
  End Sub
  

• Form2中调用：

  Private Sub Form_Load()
      PopulateListView Me.ListView2
  End Sub
  

• Form3中调用：

  Private Sub Form_Load()
      PopulateListView Me.ListView3
  End Sub
  

额外注意点 #

• 确保所有窗体都引用了数据库操作组件（比如ADO，可通过「工程→引用」勾选「Microsoft ActiveX Data Objects x.x Library」）
• 如果三个ListView的列结构不同，可以给函数增加参数（比如列名映射数组），或者在填充时做分支判断，适配不同的列配置
• 建议添加错误处理逻辑，避免数据库操作异常导致程序崩溃，比如：

  On Error GoTo ErrorHandler
  ' 数据库操作代码...
  Exit Sub
  

ErrorHandler:
MsgBox "数据加载失败：" & Err.Description
' 释放资源的代码...

内容的提问来源于stack exchange，提问作者mr.neeo