格式化数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1. 表中有一个日期列“开始日期”，想把“2008/11/9”导出为2008年11月9日格式，用了以下代码，不管用，求解

原来是：st1 = dr1("机号") & "飞机" & dr1("开始日期") ，导出“2008/11/9”格式；

改为：st1 = dr1("机号") & "飞机" & Format(dr1("开始日期") ,"D")

st1 = dr1("机号") & "飞机" & Format(dr1("开始日期") ,"yyyy年MM月dd日")

都不管用。

2. 想把代码中阿拉伯数字变量“i” 变为中文，如2变为“二”，该如何修改，谢谢

For i As Integer = 0 To drs.count-1

Dim dr As DataRow = drs(i)

str & = (i) & ") " & dr("小结")

主题：格式化数据