代码如下:
Dim drs As List(of DataRow) = DataTables("列设置表").sqlSelect("表名 = '" & strTable & "'","列顺序")
For Each dr As DataRow In drs
csv += "|" & dr("列名") & "|" & dr("列宽")
Next
msgbox(csv)
CSV中无数据.
如果把sqlselect改成select则有数据.
实际打开表,其中有数据(access数据).
数据是刚通过以下代码保存的
DataTables("列设置表").SQLDeleteFor("表名 = '" & strTable & "'")
For Index As Integer = 0 To fw.Length - 1 Step 2
I += 1
dr = DataTables("列设置表").addnew
dr("表名") = strTable
dr("列名") = fw(Index)
dr("显示名") = fw(Index)
dr("列顺序") = I
dr("列宽") = fw(Index + 1)
Next
DataTables("列设置表").save
加好友 
发短信
Post By：2016/3/22 11:40:00 [只看该作者]
