- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 查过当月表DATACOLCHANGED没有任何字符的，但还是弹出这样窗口 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=135996)
-- 发布时间：2019/6/6 16:09:00
-- 查过当月表DATACOLCHANGED没有任何字符的，但还是弹出这样窗口
查过当月表DATACOLCHANGED没有任何字符的，但还是弹出这样窗口，不知是不是我将之前的表名称改后，重新增加了一个相同表名的列造成
-- 发布时间：2019/6/6 16:10:00
--
-- 发布时间：2019/6/6 16:10:00
--
此主题相关图片如下：pp.png
-- 发布时间：2019/6/6 16:11:00
--
1、把bin文件夹删除，重新打开项目；
2、在datacolchanged事件，输入一句代码，如 msgbox(123)
-- 发布时间：2019/6/7 13:49:00
--
好，多谢
-- 发布时间：2019/6/8 14:10:00
--
-- 发布时间：2019/6/8 14:10:00
--
此主题相关图片如下：55.jpg
-- 发布时间：2019/6/8 14:11:00
--
已添加了具有相同键的项是什么意思，造成二个按键都提示这个窗口无法导入数据？
-- 发布时间：2019/6/8 14:37:00
--
检查7楼提示的事件的代码。
已添加了具有相同键一般是字典添加了重复的键
-- 发布时间：2019/6/8 14:42:00
--
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()