主题：表间数据传输问题求教？

两表之间数据传输（表1到表），都“参加工作时间”列，且都是“日期格式”其中表1中有些行是空白的，但传输到表2后，就有数据了，但都统一显示为：1899-12-30 0:00:00，这是什么原因？能否原封不动的传输？

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

点击浏览该文件:鉴定管理系统v2-0808.rar

 

谢谢版主！这是实例。

现在的问题：

1、《报名登记表》中点击“资审通过导出”按钮，将数据导到《审核合格表》中，为时间列空白的会有数据，格式为0001-01-01，把这样的数据删除后，再从《审核合格表》中点击“理论考试”按钮或“实操潜能”按钮，将数据导到《理论考试表》中或《实操潜能表》中也是一样；

2、在《实操潜能表》中点击“导出”按钮，将一些数据填入相应的空白单元格后再点击“导入”按钮，总会出现报错；

 

烦请请版主看看问题出在哪？

谢谢版主！找到了问题所在了。

新问题求助：“导入”按钮现在导入数据不报错了，但导入是重新增加，而不在原来的基础上填入后加的数据。

 

就是点击一次就新增加一次

谢谢！我再看下代码！

找到原因了，新代码的FIND条件对应的位置要把序号列算进去。

 

再麻烦一下版主：在表里有“鉴定等级”、“实操成绩”两列，当鉴定等级为“技师”时，实操成绩要〉＝75分才算及格，其它的等级都以60分算及格，那么这个Drawcell应该如何写？

If e.Col.IsNumeric AndAlso e.Col.Name = "实操成绩" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) < 75 Then '如果该列的值小于75
            e.Style = "无" '那么用"无"样式绘制单元格
        End If
    End If
End If
还是应该用CASE？

谢谢版主！刚才试了下代码，好象对“鉴定等级”＝“中级工”或“高级工”等级别时，实操成绩在60分以下，没有反应。

我想写DrawCell的代码达到的目的：

1、当“鉴定等级”＝“技师”时，“实操成绩”〉＝75分，则显示“及格”的样式，否则为“不及格”的样式；

2、当“鉴定等级”＝“中级工”或“高级工”时，“实操成绩”〉＝60分，则显示“及格”的样式，否则为“不及格”的样式

谢谢！问题是现在我该怎么改代码？