Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]再帮看一个错误提示


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

主题：[求助]再帮看一个错误提示
帅哥哟，离线，有人找我吗？
花开的声音
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		[求助]再帮看一个错误提示  发帖心情 Post By：2014/4/28 20:48:00 [显示全部帖子]

在用窗口中的控件给表赋值时，提示如下图错误，麻烦帮看下。同样的代码和相似的界面，另一处这样写都没有错误。


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

代码如下：
Dim t As Table = e.Form.Controls("基层法律服务人员信息表").Table
For Each c As Col In t.Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If ctl.Name.Contains(c.Name) Then
            Select ctl.Gettype.Name
                Case "textbox","combobox","DateTimePicker"
                 t.Current(c.Name) = e.Form.Controls(ctl.Name).Value
            End Select
        End If
    Next
Next
e.Form.Controls("基层法律服务人员信息表").Table.DataTable.Save
 回到顶部
帅哥哟，离线，有人找我吗？
花开的声音
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/4/28 21:15:00 [显示全部帖子]

找到问题了，原来在窗口里面还有一个5个页面，其中里面有一个设置纸张大小的，默认的就是A4纸，呵呵。这个怎么排除掉呢？

 回到顶部
帅哥哟，离线，有人找我吗？
花开的声音
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/4/28 22:00:00 [显示全部帖子]

这个控件是组合框，控件名称是“选择纸张”，在这个窗口中，除了这个控件之外再也没有同名的，表中也没有这个名字的列。

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


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/4/28 22:15:00 [显示全部帖子]

我改成下面的代码就没有提示错误了。
Dim t As Table = e.Form.Controls("基层法律服务人员信息表").Table
For Each c As Col In t.Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If ctl.Name <> "选择纸张" Then
            If ctl.Name.Contains(c.Name) Then
                Select ctl.Gettype.Name
                    Case "textbox","combobox","DateTimePicker"
                        't.Current(c.Name) = e.Form.Controls(ctl.Name).Checked
                        'Case Else
                        t.Current(c.Name) = e.Form.Controls(ctl.Name).Value
                End Select
            End If
        End If
    Next
Next
e.Form.Controls("基层法律服务人员信息表").Table.DataTable.Save
 回到顶部
帅哥哟，离线，有人找我吗？
花开的声音
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/4/28 22:16:00 [显示全部帖子]

Dim t As Table = e.Form.Controls("基层法律服务人员信息表").Table
For Each c As Col In t.Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If ctl.Name <> "选择纸张" Then
            If ctl.Name.Contains(c.Name) Then
                Select ctl.Gettype.Name
                    Case "textbox","combobox","DateTimePicker"
                        t.Current(c.Name) = e.Form.Controls(ctl.Name).Value
                End Select
            End If
        End If
    Next
Next
e.Form.Controls("基层法律服务人员信息表").Table.DataTable.Save
 回到顶部
帅哥哟，离线，有人找我吗？
花开的声音
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/4/28 22:27:00 [显示全部帖子]

呵呵，表里有一个列叫“选择”。
图片点击可在新窗口打开查看此主题相关图片如下：eee.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
花开的声音
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/4/28 22:31:00 [显示全部帖子]

表中的“选择”列是BOOLEAN型，目的是想让用户选择行用于删除操作，我想在删除操作前，判断一下选择的行数是不是为0，怎么表示？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询