导出按钮代码如下，如何显示千分比符号？
Dim dt As Table = Tables("收货登记明细表")
dt.SetColVisibleWidth("过磅日期|80|发货单位|150|发货地|100|卸货地|100|货物名称|150|车牌号|80|手开数|90|原发数|90|实收数|90|亏吨|60|运费承担|120|运价|40|应付金额|60|实际亏吨扣款|40|罚款|40|实付运费|80|货值|50|结算日期|80|付款日期|80|实付金额|80|姓名|50|路耗|40|未付运费|80|计提运费|80|批次号|140|提货单号|150|备注|100|单价类型|80|单价|40|承运单位|80|货源单号|150|运单状态|60 ")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter = "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
For Each s As String In DataTables("收货登记明细表").getvalues("收发类别")
dt.filter = “收发类别 = '" & s & "'”
dt.SaveExcel(dlg.FileName, s)
Next
End If
加好友 
发短信
Post By：2023/4/10 22:20:00 [只看该作者]
此主题相关图片如下：1681136165891.png