主题：[求助]

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:加载数据.rar

老师外部数据怎么加载不到表中了

老师，外部数据表怎样设置主键列

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 年度,月份 From {支付宝对账单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年度|月份")
trv.Nodes.Insert("加载所有数据",0)

老师，上面加载树的公式是正确的。

 

下面是筛选树的代码，打开窗口报错说该表不存在（_Tbl_Main）
With Tables(e.Form.Name & "_Tbl_Main")
    .EnterKeyActionDown = True
    .AutoSizeCols
    Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("电子信息")
    For Each C As Col In .Cols
        dz_FilterCol.Items.Add(C.Name)
    Next
    dz_FilterCol.Value = "年度,月份"
End With

此主题相关图片如下：图像 3.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:加载数据.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:加载数据.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:加载.rar

 

老师，在窗口中不能加载数据

此主题相关图片如下：图像 5.png

老师，我是想加载后再筛选，下面的代码找不到窗口中已加载的表，无法进行筛选。望老师给我修改代码。

 

 

With Tables(e.Form.Name & "_Tbl_Main")
    .EnterKeyActionDown = True
    .AutoSizeCols
    Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("电子信息")
    For Each C As Col In .Cols
        dz_FilterCol.Items.Add(C.Name)
    Next
    dz_FilterCol.Value = "年度,月份"
End With

此主题相关图片如下：图像 8.png

在打开该表的时候报错

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

 

 

打开窗口报错