Foxtable(狐表) → 用户栏目 → 专家坐堂 → ECXEL打印问题


  共有3241人关注过本帖树形打印复制链接

主题：ECXEL打印问题
帅哥哟，离线，有人找我吗？
扶风
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		ECXEL打印问题  发帖心情 Post By：2016/10/13 18:45:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.zip

老师点击品质检测--测试窗口--“生成检验报告”一直跳出”表单名称必须唯一。”之前还是好的，修改了模板1后我又改回原样还是报错。
还有模板1第17行样本编号那一行，我希望能显示10行，如何做到，之前测试是只显示1行，但有10个报表。所有数据都在导出表里，请问如何修改？
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2016/10/17 17:55:00 [显示全部帖子]

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("待测试项目_Table1").FindRow("项目编号 = '" & dr("项目编号") & "'")
'Dim wz As String = Tables("SQL_wdjbxxb").FindRow("id = '" & dr("序号") & "'", "wdmc = '" & dr("文档名称") & "'")
 If wz >=0 Then
  Tables("项目测试数据看板").Position = wz     '(后台数据表)
  Tables("待测试项目_Table1").Position = wz
 End If

老师，现在前台table行和后台是一致的，所以这么写是对的，但如果前台少了一行，后台没变，这么写位置就错开不对了？
那能否直接根据项目编号来定位到后台的所在行？
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2016/10/17 18:20:00 [显示全部帖子]

窗口的待测试项目_Table1 绑定着 项目测试数据看板，如果都不变的话，位置是一一对应的，但是如果 待测试项目_Table1少了一行，位置就对不上了，能否直接根据待测试项目_Table1的项目编号 定位到 项目测试数据看板 的项目编号那一行？

 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2016/10/18 14:54:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.3.23.1
错误所在事件：结案临时表,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。


Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("项目测试数据看板").FindRow("项目编号 = '" & dr("项目编号") & "'")
 If wz >=0 Then
  Tables("项目测试数据看板").Position = wz
 End If

老师，我点运行它一直报这个错，但是X掉后还是正常运行，请问如何解决？
品质检测 结案项目 运行窗口
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.zip
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2016/10/21 18:02:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

老师这是做在excel里的，L的值全取的程序表里的[L]，下面那个空格能自己做判断吗？如果上面的值都是/，那么空格里也显示/，否则就像其他一样显示 合格，请问如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2016/11/2 13:23:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：截图2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：截图1.png
图片点击可在新窗口打开查看

Dim sql3 As String = "s elect a.*,(s elect sum(实发数量) from {K3明细表} b where a.[客户料号]=b.[客户料号] And a.[产品长代码]=b.[产品长代码]) As [实发数量],(s elect sum(本次数量) from {扫描明细表} d where a.[客户料号]=d.[客户料号] And a.[产品长代码]=d.[万盛料号]) As [本次数量] from (S elect distinct [客户料号],[产品长代码] from {K3明细表} Group by [客户料号],[产品长代码]) a"
Dim cmd3 As New SQLCommand
Dim dt3 As DataTable
Dim cmb3 As WinForm.ComboBox
cmd3.CommandText = sql3
dt3 = cmd3.ExecuteReader()
Dim f3 As New Filler
f3.SourceTable = dt3
f3.DataTable = DataTables("比对表") 
f3.Fill()

老师，现在是在表结构里做的逻辑判断，如果写代码，那么每一行的dr(实发数量)-dr(本次数量)又是怎么写代码的？如何写能让不打勾的那一行标记颜色以及有空值的像图上那么是点表示？
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2016/11/2 16:32:00 [显示全部帖子]

Dim dr As DataRow
dr = DataTables("比对表").DataRows
If dr("实发数量")=dr("本次数量")
dr("对比").value=True
Else 
dr("对比").value=False
End If

老师，如上的是我想表达的意思(datatable表中，如果这一行的实发数量和本次数量一致，那么这一行的对比就是true)，但这么写不对的，就是想知道具体该如何修改。现在是写在表结构的表达式里做的判断。
另如果这一行的对比是false，那么这一行就标记一个颜色，这个如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2016/11/2 17:47:00 [显示全部帖子]

老师，报错类型"DataRowCollection"的值无法转换为"DataRow"错误代码：dr = DataTables("比对表").DataRows
如果改成dr = DataTables("比对表").DataRows(0)的话就可以，但这样不是只代表第一行？怎么代表每一行？
另颜色，table是绑定的数据表，在哪里有DrawCell事件
[此贴子已经被作者于2016/11/2 17:58:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2016/11/3 13:10:00 [显示全部帖子]

If e.Row("芯片规格") <> "%小计" Then 
        If e.Row(e.Col.("需要订货")) > 0 Then 
            e.Style = "需要订货" 
        ElseIf e.Row(e.Col.("需要订货(预测)")) > 0 Then 
            e.Style = "需要订货" 
        End If
End If

老师，第一行小计怎么表示，就是分为包含小计和不包含的？
第二行报错：应为标识符。 是不是应该e.Col.Name，但这样是每一列，如何指定列？
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2016/11/6 15:22:00 [显示全部帖子]

老师，请问

    Select Case g612
      Case g612 < 12
        dffw = "≤0.002"
      Case Else
        dffw = "≤0.001"
    End Select

我这里一直是第二种情况，是不是红色部分不能这么写？（小于大于之类色）该如何修改？
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09375 秒, 7 次数据查询