VB 中老是提示非法属性值

Question

数据库vb

Answer 1

你得先判断一个Adodc1.Recordset.Fields("交工日期")的日期是否合法先啊，正确的再赋值给DTPicker这个控件吧，不然就把默认值赋给它，比如Now什么的。

Answer 2

先判断一下字段值是否为空：
If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext
    if not isnull(Adodc1.Recordset.Fields("交工日期")) then
        DTPicker1.Value = Adodc1.Recordset.Fields("交工日期")
    end if
    if not isnull(Adodc1.Recordset.Fields("竣工日期")) then
        DTPicker2.Value = Adodc1.Recordset.Fields("竣工日期")
    end if
end if