- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187526)
-- 发布时间：2023/7/24 10:03:00
-- [求助]导出
老师好有用烦你了，导出按钮报错
此主题相关图片如下：2023-07-24 09 54 41.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导出.rar |
-- 发布时间：2023/7/24 10:08:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=187461
-- 发布时间：2023/7/24 12:26:00
--
老师MessageBox.Show(12)过不过去
If c <= nbox1.value Then
If s2<>s OrElse r-i1=dt.DataRows.Count Then
If s2=s Then
rm2 += 1
End If
If rm2 <> 0 AndAlso s2 <> "" AndAlso s2 <> "0" Then
Sheet.MergeCell(rm,c,rm2,1)
End If
s2 = s
rm = r
rm2 = 1
Else
rm2 += 1
End If
End If
If vv>0 Then
Sheet.Rows(r).Height =vv \'设置行高
End If
n2 = 0 \'完成一行后初始化条件
Next
MessageBox.Show(12)
If sheet(i1,c).value="" Then
Sheet.MergeCell(0,c,i1+1,1) \'合并单表头
End If
sheet.Cols(c).Width = i3*9.3
Else
sheet.Cols(c).Width = 0
End If
MessageBox.Show(13)
\'完成一列后初始化条件
ss2 = ss & ss2
i3 = 0
n = 0
c +=1
Next
Sheet.Rows.RemoveAt(r+i1) \'删除过渡行
dst.Filter = "[编号] > 0"
MessageBox.Show(14)
-- 发布时间：2023/7/24 13:32:00
--
添加2楼的判断代码了吗
-- 发布时间：2023/7/24 15:50:00
--
添加了
-- 发布时间：2023/7/24 15:59:00
--
添加到哪里了？我测试没有问题
-- 发布时间：2023/7/24 16:11:00
--
老师，导出按钮还是不行。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:导出.rar |
-- 发布时间：2023/7/24 16:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导出.zip |
-- 发布时间：2023/7/24 17:56:00
--
老师，在导出过程中报错，但能导出。
.NET Framework 版本：2.0.50727.9172
Foxtable 版本：2017.4.22.1
错误所在事件：
详细错误信息：
无法在 System.String 和 System.Int32 上执行“>”操作。
-- 发布时间：2023/7/24 20:13:00
--
我测试没有问题。调试看是哪一句代码出错