怎样获得ACCESS数据表的字段类型的返回值？ 怎样获得ACCESS数据表的字段类型的返回值？ 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 用DataSet.FieldByName('Field').DataType获得字段的类型 switch (ADOQuery1->Fields->Fields[i]->DataType){ case 1: str = "String"; break; case 2: str = "Smallint"; break; case 3: str = "Integer"; break; case 4: str = "Word"; break; case 5: str = "Boolean"; break; case 6: str = "Float"; break; case 7: str = "Currency"; break; case 8: str = "BCD"; break; case 9: str = "Date"; break; case 10: str = "Time"; break; case 11: str = "DateTime"; break; case 12: str = "Bytes"; break; case 13: str = "VarBytes"; break; case 14: str = "AutoInc"; break; case 15: str = "Blob"; break; case 16: str = "Memo"; break; case 17: str = "Graphic"; break; case 18: str = "FmtMemo"; break; case 19: str = "ParadoxOle"; break; case 20: str = "DBaseOle"; break; case 21: str = "TypedBinary"; break; case 22: str = "Cursor"; break; case 23: str = "FixedChar"; break; case 24: str = "WideString"; break; case 25: str = "Largeint"; break; case 26: str = "ADT"; break; case 27: str = "Array"; break; case 28: str = "Reference"; break; case 29: str = "DataSet"; break; case 30: str = "OraBlob"; break; case 31: str = "OraClob"; break; case 32: str = "Variant"; break; case 33: str = "Interface"; break; case 34: str = "IDispatch"; break; case 35: str = "Guid"; break; default: str = "我也不知道";} "DataSet下没有FieldByName字段啊?"当然有了！~ 简单--关于如何获得某一列的值？ 能不能让toolbutton下拉列表不满足条件的时候就不自动弹出？ 16进制的双精度浮点数的转换问题 Delphi 实现 hashTable 如何在一个新工程中加入已有的表单 怎样判断客户端的日期与服务器的日期一致? Ado问题 在上海用DELPHI的公司多吗?做ERP开发,薪水多少? 想跟大家交个朋友呀 三个SQL server数据表，其中一个表的记录被删后，另两个表的对应记录自动删除，该如何实现？ 求版主别删除！我要去应聘计算机系统管理员，他们可能会问什么问题？他们的要求如下： infopower 问题 多谢！！！！！！！！！
{
case 1:
str = "String";
break;
case 2:
str = "Smallint";
break;
case 3:
str = "Integer";
break;
case 4:
str = "Word";
break;
case 5:
str = "Boolean";
break;
case 6:
str = "Float";
break;
case 7:
str = "Currency";
break;
case 8:
str = "BCD";
break;
case 9:
str = "Date";
break;
case 10:
str = "Time";
break;
case 11:
str = "DateTime";
break;
case 12:
str = "Bytes";
break;
case 13:
str = "VarBytes";
break;
case 14:
str = "AutoInc";
break;
case 15:
str = "Blob";
break;
case 16:
str = "Memo";
break;
case 17:
str = "Graphic";
break;
case 18:
str = "FmtMemo";
break;
case 19:
str = "ParadoxOle";
break;
case 20:
str = "DBaseOle";
break;
case 21:
str = "TypedBinary";
break;
case 22:
str = "Cursor";
break;
case 23:
str = "FixedChar";
break;
case 24:
str = "WideString";
break;
case 25:
str = "Largeint";
break;
case 26:
str = "ADT";
break;
case 27:
str = "Array";
break;
case 28:
str = "Reference";
break;
case 29:
str = "DataSet";
break;
case 30:
str = "OraBlob";
break;
case 31:
str = "OraClob";
break;
case 32:
str = "Variant";
break;
case 33:
str = "Interface";
break;
case 34:
str = "IDispatch";
break;
case 35:
str = "Guid";
break;
default:
str = "我也不知道";
}
当然有了！~