主题：查过当月表DATACOLCHANGED没有任何字符的，但还是弹出这样窗口

查过当月表DATACOLCHANGED没有任何字符的，但还是弹出这样窗口，不知是不是我将之前的表名称改后，重新增加了一个相同表名的列造成

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

1、把bin文件夹删除，重新打开项目；

 

2、在datacolchanged事件，输入一句代码，如 msgbox(123)

此主题相关图片如下：55.jpg

已添加了具有相同键的项是什么意思，造成二个按键都提示这个窗口无法导入数据？

检查7楼提示的事件的代码。 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
  Dim PP As NEW xls.book(dlg.FileName)
  Dim Sheet As xls.Sheet = PP.Sheets(0)
  For i As Integer = 1 To Sheet.Rows.Count-1 
        Dim dr As Row = Tables("月结采购").AddNew()
        dr("供应商") = sheet(i,0).text         '供应商
        dr("单据类型") = sheet(i,1).text       '单据类型
        dr("入库日期") = sheet(i,2).text       '单据编号
        dr("单号") = sheet(i,3).text           '单号
        dr("物料编码") = sheet(i,4).text       '货品编码
        dr("货物名称") = sheet(i,5).text       '货物名称
        dr("规格") = sheet(i,6).text           '规格
        dr("单位") = sheet(i,7).text           '单位
        dr("单价") = sheet(i,8).Value 'text           '单价
        dr("数量") = sheet(i,9).text           '数量
        dr("付款情况") = sheet(i,11).text      '付款情况
        dr("序号") = sheet(i,12).text          '序与
  Next
End If
DataTables("月结采购").DeleteFor( " 供应商 Is Null ") '删除空白行
DataTables("月结采购").Save()
Forms("控制平台").Close()