参考
http://www.foxtable.com/webhelp/scr/2628.htm
设置下划线,参考
DataTables("表A").Styles("a").FontUnderline = True