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

报错是：

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2016.3.23.1

错误所在事件：窗口,分页,AfterLoad

详细错误信息：

未将对象引用设置到对象的实例。

代码如下：

Dim cls() As String = {"工位","员工工号","姓名","总产量","上班天数","昨日产量","日均产量","日均排名"} '定义列名

Dim wds() As String = {116,116,110,177,116,162,162,116} '定义列宽

Dim drs As List(Of DataRow)

Dim Filter As String = "(工位 In ('" & Forms("岗位").Controls("CheckedcomboBox1").Text.Replace(",", "','") & "'))"

drs = DataTables("汇总表").Select(Filter,"工位,日均产量 DESC")

For i As Integer = 0 To cls.Length - 1 '增加列

Dim c As WinForm.ListViewColumn = lvw.Columns.Add()

c.Text = cls(i) '指定列标题

c.Name = cls(i) '指定列名

c.Width = wds(i) '指定列宽

lvw.Columns("工位").TextAlign = HorizontalAlignment.Center '居中对齐

lvw.Columns("姓名").TextAlign = HorizontalAlignment.Center '居中对齐

lvw.Columns("员工工号").TextAlign = HorizontalAlignment.Center '居中对齐

lvw.Columns("总产量").TextAlign = HorizontalAlignment.Right '靠右对齐

lvw.Columns("昨日产量").TextAlign = HorizontalAlignment.Right '靠右对齐

lvw.Columns("日均产量").TextAlign = HorizontalAlignment.Right '靠右对齐

lvw.Columns("上班天数").TextAlign = HorizontalAlignment.Right '靠右对齐

lvw.Columns("日均排名").TextAlign = HorizontalAlignment.Center '靠右对齐

Dim blvw = lvw.basecontrol

blvw.SmallImageList.ImageSize = new Size(1, 108) '设置行高

For Each dr As DataRow In drs '从数据表中提取数据

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

For Each cl As String In cls '逐列取值

vr(cl) = dr(cl)

vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来

If dr("日均排名") = "1" And dr("日均产量") <> "0" Then '用蓝底白字整行显示

vr.BackColor = Color.Blue

Vr.ForeColor = Color.White

End If

lvw.ResumeRedraw() '恢复绘制

e.Form.Controls("Button5").PerformClick

窗口,分页,AfterLoad,完整代码看看

Button5事件代码看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SEL ECT 发布信息 From {发布} where 序号='1'"

dt = cmd.ExecuteReader()

'Dim lb9 As WinForm.Label = e.Form.Controls("Label9")

'lb9.text = dt.GetLabelString("发布信息")

'cmb.ComboList= dt.GetComboListString("客户")

if dt.DataRows.Count > 0 then

Forms("分页").Controls("Label9").text = dt.DataRows(0)("发布信息")'cmd.CommandText

end if

其它地方仅从代码看不出问题，没有数据测试

老师，还是报错

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工作汇总.zip

这是外部数据表

......

Dim cls() As String = {"工位","员工工号","姓名","总产量","上班天数","昨日产量","日均产量","日均排名" } '定义列名

Dim wds() As Integer = {116,116,110,177,116,162,162,116} '定义列宽

Dim drs As List(Of DataRow)

If Forms("岗位").Opened = False Then

msgbox("先打开岗位窗口")

Return

End If

Dim Filter As String = "(工位 In ('" & Forms("岗位").Controls("CheckedcomboBox1").Text.Replace(",", "','") & "'))"

drs = DataTables("汇总表").Select(Filter,"工位,日均产量 DESC")

For i As Integer = 0 To cls.Length - 1 '增加列

Dim c As WinForm.ListViewColumn = lvw.Columns.Add()

c.Text = cls(i) '指定列标题

c.Name = cls(i) '指定列名

c.Width = wds(i) '指定列宽

......

老师，还是报一样的错，这样写不是只是判断是否打开那个窗口么？感觉没什么意义啊。

测试没有问题。窗口如果没有打开，后面代码用到了窗口的控件，自然报错

老师，打开窗口后他也没进行筛选啊？还是原来的样子啊

计时器中调用的button5的事件覆盖了之前的筛选

主题：[求助]导入列