[求助]复选列表框显示当前表“名称”列的值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复选列表框显示当前表“名称”列的值

共有2832人关注过本帖树形打印复制链接主题：[求助]复选列表框显示当前表“名称”列的值

jyh7081

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

[求助]复选列表框显示当前表“名称”列的值 发帖心情

Post By：2016/8/18 21:55:00 [显示全部帖子]

绑定表可以在属性里设置，但如果是不绑定表，而是对当前表起作用，应该怎么写代码？

[此贴子已经被作者于2016/8/18 22:09:27编辑过]

jyh7081

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/19 19:24:00 [显示全部帖子]

我改了下列代码放入窗口的AfterLoad事件中，运行后，但只获取了一行的数据，麻烦老师给看看是哪里的原因？

Dim cmb As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1")

cmb.ComboList = CurrentTable.Current("名称")

而且，把上述代码放入窗口AfterLoad事件后，导致不能运行其他代码，显示“未将对象引用设置到对象的实例 ”。

[此贴子已经被作者于2016/8/19 21:11:55编辑过]

jyh7081

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/20 10:46:00 [显示全部帖子]

错误所在事件：窗口,生成文件,生成文件,Click

详细错误信息：

从字符串“名称”到类型“Integer”的转换无效。

输入字符串的格式不正确。

生成文件,Click----按钮代码：

Dim clbx1 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")

Dim clbx2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2")

For Each j As Integer In clbx2.CheckedIndices

Dim tm As String = ProjectPath & "模板文件\" & clbx2.Items(j) '指定模板文件

For Each i As Integer In clbx1.CheckedIndices

Dim fl As String = ProjectPath & "成品文件\" & clbx1.items(i)("名称") & clbx2.Items(j) '指定目标文件

Dim nm As String = CurrentTable.Name

Dim wrt As New WordReport(Tables(nm),tm,fl) '定义一个WordReport

Dim dr As DataRow =DataTables(nm).Find("_Identify = '" & clbx1.items(i)("_Identify") & "'")

If dr IsNot Nothing

wrt.BuildOne(dr)

wrt.quit

Dim proc As new Process

proc.File = fl

proc.Start

End If

jyh7081

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/20 11:07:00 [显示全部帖子]

详细错误信息：

从字符串“_Identify”到类型“Integer”的转换无效。

输入字符串的格式不正确。

jyh7081

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/20 14:10:00 [显示全部帖子]

见附件，另外麻烦老师给看看代码中被注释的3行代码怎么改写，谢谢！

[此贴子已经被作者于2016/8/20 14:50:02编辑过]

jyh7081

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/20 15:00:00 [显示全部帖子]

老师，效果和过程就是这样，非常感谢！

但测试后，发现如果文件夹中本来没有同名文件，也会弹出询问“是否覆盖重新填写”的窗口；以及每生成一个文件就弹出一个“生成完毕”的窗口。

麻烦老师再看看是哪里的问题。

jyh7081

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/20 15:25:00 [显示全部帖子]

给老师添麻烦了，还有一点小问题：

如果模板中的项目在数据表中找不到，就会在生成的文件中保留一个空行，怎样让这些没有内容的空行不出现？再次感谢！

jyh7081

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/20 16:25:00 [显示全部帖子]

生成的文件还是有空行（模板中的项目在数据表中找不到），如下：

这是生成的文件：

2222

3333

6666

7777

8888

9999

0000

-------------------

这是模板：

[名称]

[第二列]

[第三列]

[第四列]

[第五列]

[第六列]

[第七列]

[第八列]

[第九列]

[第十列]

---------------------

[第四列]、[第五列]这两个模板项目，数据表中没有数据；想在生成的文件中删除无内容的项目所在的行。谢谢！

[此贴子已经被作者于2016/8/21 9:37:58编辑过]

jyh7081

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/21 19:30:00 [显示全部帖子]

附件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:aa.rar

版主，你用模板111或222预览一下，我在foxtable的一个单元格中分行录入的数据：

①如果模板是表格（模板111），那么，预览或写入模板时就成为了一行，并插入了格式字符；希望导入模板后仍保持原样式。

②如果模板不是表格（模板222），那么，预览时，那个单元格中分行录入的数据在写入模板后就做不到左对齐；希望都是左缩进2字符。

③模板中的项目，foxtable中如果没有，那么，报表就显示空段落；希望删除没有数据的项目所在的行（空段落）。

谢谢版主！

[此贴子已经被作者于2016/8/21 20:50:27编辑过]

jyh7081

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/22 13:31:00 [显示全部帖子]

版主谦虚了，可能论坛等着你答复的问题太多了，没有时间，我相信版主是无所不能的。另外，我对弧表还处于了解阶段，所以问的问题可能不到位，让前辈无法着手。

关于本贴涉及的问题，我在execl中都有完善的代码，只是不知道怎样移植到foxtable中。

说明中说“原来的VBA代码只需稍作修改，就可以在Foxtable中使用。” ，但我还改不了。

如果版主有空的话，能否把我涉及上述问题的几句VBA代码移植到foxtable中。谢谢！

附件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:文书数据源.rar

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：[求助]复选列表框显示当前表“名称”列的值