- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求教单元格内对内容进行判断，弹出对应窗口 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115651)
-- 发布时间：2018/3/11 15:55:00
-- [求助]求教单元格内对内容进行判断，弹出对应窗口
我想做的是，
鼠标点击某个单元格，如果单元格内的内容为“1”，那我点击打印按钮，就会弹出1的打印选项，
如果单元格内的内容为“2”，那我点击打印按钮，就会弹出2的打印选项，
如果单元格内为空值，则弹出文字提示窗口，
这个应该怎么写啊，我想把命令直接写在按钮上。
-- 发布时间：2018/3/11 20:06:00
--
比如代码
Dim s As String = Tables("表A").Value
msgbox(s)
If s = "1" then
ElseIf s = "2" Then
ElseIf s = Nothing Then
End If
你说的打印选项，指什么？请用具体实例说明。
-- 发布时间：2018/3/15 22:50:00
--
此主题相关图片如下：无标题.png
我想实现的功能是，鼠标选中“本地”，再点击打印，那打印出来的就是本地的表格，
如果鼠标选中的内容是“外地”，那点击打印后，打出来的是外地的表格。
因为我现在做了两个打印按钮，想通过识别文字自动打印对应的表格。
麻烦老师了。。
[此贴子已经被作者于2018/3/15 22:51:58编辑过]
-- 发布时间：2018/3/15 22:53:00
--
1、你看懂2楼代码了没有？
2、贴出你写的打印代码。
3、如果不会做，上传具体项目说明。
-- 发布时间：2018/3/16 12:22:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\本地.xls")
Dim fl As String = ProjectPath & "Reports\\本地.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
这是我的打印按钮中的代码，这个代码是我选择本地打印按钮后执行的 命令，还有一个是外地打印按钮，现在想把两个按钮整合在一起，通过按钮识别鼠标指定的单元格内容，如果单元格内容是本地，那就打印本地的表格，如果是外地，就打印出外地的表格，这样就不用我手动选择是打印本地还是外地的表格了。
麻烦老师了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
[此贴子已经被作者于2018/3/16 12:39:56编辑过]
-- 发布时间：2018/3/16 14:24:00
--
Dim v as String = e.form.controls("Table1").Table.Value
Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & v & ".xls")
Dim fl As String = ProjectPath & "Reports\\" & v & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
-- 发布时间：2018/3/17 17:08:00
--
老师，" & v & " 这个是什么意思啊？
-- 发布时间：2018/3/17 17:15:00
--
字符串合成：http://www.foxtable.com/webhelp/scr/0221.htm