调试
msgbox(Raw.count)
For Each RawData As String In Raw
msgbox("RawData=" & RawData)
Select Case RawData
Case "测量信息"
dt = DataTables("1")
Case "原始数据"
dt = DataTables("2")
End Select
msgbox("dt=" & dt.name)
msgbox("cb_Format=" & cb_Format)
Select Case cb_Format
Case "TXT"
Ex_Path = Ex_Path & ".txt"
msgbox("Ex_Path=" & Ex_Path)
Dim bzf As String = RawData & vbcr & "列名" & vbtab & "类型" & vbtab & "长度"
FileSys.WriteAllText(Ex_Path ,vbcr & bzf,True,Encoding.Unicode) '''写入列名
加好友 
发短信
Post By：2022/5/31 10:55:00 [显示全部帖子]
