以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]求版主指点错误! (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84048) |
||||
-- 作者:lisheng1971 -- 发布时间:2016/4/22 9:11:00 -- [求助]求版主指点错误!
这是导入的电子表格
Dim Result As DialogResult ndr (m) = Sheet(l,nms(m)).Value 以上是“导入”按钮代码,问题:导入后不报错,但会多出很多行空白行,且点“重置列”按钮后逻缉列会全部变成“FALSE”,烦请版主指点错误,谢谢先!!!!!! |
||||
-- 作者:Hyphen -- 发布时间:2016/4/22 9:24:00 -- ...... For n As Integer = 2 To Sheet.Rows.Count -1 Dim sfzhm As String = sheet(n,5).Text If sfzhm > "" Then \'排除空白行 Dim jdpc As String = sheet(n,16).Text Dim dr As DataRow = DataTables("鉴定考核表").Find("身份证号码 = \'" & sfzhm & "\' And 鉴定批次 = \'" & jdpc & "\'") If dr Is Nothing Then ls.add(n) Else dic.Add(dr, n) End If End If Next ......
|
||||
-- 作者:Hyphen -- 发布时间:2016/4/22 9:25:00 -- 重置列需要查看表事件或者表达式列都做了什么 |
||||
-- 作者:lisheng1971 -- 发布时间:2016/4/22 9:40:00 -- 谢谢!!!!!!现在导入不会有空白行了,但重置列还是会全部“FALSE”, 以下是表Datacolchanged事件: If e.DataRow("鉴定等级") = "技师" Then |
||||
-- 作者:大红袍 -- 发布时间:2016/4/22 9:55:00 -- 你请加入msgbox查看哪里有问题。
或者直接说明判断逻辑。 |
||||
-- 作者:lisheng1971 -- 发布时间:2016/4/22 11:22:00 -- 版主,加了msgbox查看好象也没什么问题,代码的逻缉上应该是没什么问题,以前也用的是这段代码,只不过我改了一下“导出”按钮的模板,列数上增加了,然后“导入”按钮就出现在问题
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 这是“导出”按钮代码,在以前的基础上加了很多列;
这是模板,我找不出到底问题出在哪儿!烦请版主指点? |
||||
-- 作者:大红袍 -- 发布时间:2016/4/22 11:24:00 -- 你不是说导入没问题,而是重置列有问题,去检查你dataColChanged的代码才对啊。 |
||||
-- 作者:lisheng1971 -- 发布时间:2016/4/22 11:35:00 -- 我就是查了dataColChanged的代码,没发现有什么问题,我把例子上传,您给看看!
|
||||
-- 作者:大红袍 -- 发布时间:2016/4/22 11:48:00 -- 请说明逻辑啊,全部是false,就说明你代码逻辑有问题啊。 |
||||
-- 作者:lisheng1971 -- 发布时间:2016/4/22 13:07:00 -- 我终于找到问题所在:导入数据后,“申报性质”列不知为什么是空值,而我要导入的电子表格里“申报性质”列是有数据的,其它列又正常,这是为什么?烦请版主指点! “导入”按钮代码如下:
|