VB6.0 DataGrid 分页时遇到的问题 求救

日期要转成字符串显示,
objrs!购药日期 = cstr(adoPrimaryRS!购药日期)
objrs!回访日期 = cstr(adoPrimaryRS!回访日期)

解决方案 »

  1.   

    这样试试
    objrs!购药日期 = adoPrimaryRS!购药日期 & ""
      

  2.   

    这句有问题
    objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize
    日期型长度adoPrimaryRS.Fields(lCount).DefinedSize不对
      

  3.   

    objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adoPrimaryRS.Fields(lCount).Type, adoPrimaryRS.Fields(lCount).DefinedSize