导出按钮代码如下？
Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If lieming.CheckedIndices.Count =0 Then
msgbox("不能所有列都不选")
Return
Else
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
If sjdcxzb="fa piao库存资料表" Then
Dim post As Table = Tables("导出数据操作窗体_Table1")
Dim str As String = post.getColVisibleWidth
If lieming.value > "" Then
For Each c As Col In post.Cols
c.visible = False
Next
For Each s As String In lieming.value.split(",")
post.cols(s).Visible = True
Next
End If
post.SaveExcel(dlg.FileName, "fa piao库存资料表")
post.SetColVisibleWidth(str)
End If
End If
End If
e.Form.Close
此主题相关图片如下：截图10.png
其中有一个逻辑值，导出前显示格式是：“是”与“否”导出Excel后显示格式为：“True”与“False” 怎么设置成显示格式为“是”与“否”呢？
[此贴子已经被作者于2020/8/9 18:02:47编辑过]
加好友 
发短信
Post By：2020/8/9 18:02:00 [只看该作者]
