代码报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码报错

共有2382人关注过本帖树形打印复制链接主题：代码报错

雅痞123456

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

加好友

发短信

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

代码报错

Post By：2018/1/23 15:41:00 [只看该作者]

此主题相关图片如下：0.png

此主题相关图片如下：2.png

此主题相关图片如下：1.png

Dim cmb1 As WinForm.ComboBox = e.Form.Controls( "产品型号")

Dim cmb2 As WinForm.ComboBox = e.Form.Controls("工序号")

Dim cmb3 As WinForm.ComboBox = e.Form.Controls("领取人")

cmb1.ComboList = DataTables("工艺卡片发放记录").GetComboListString("产品型号")

cmb2.ComboList = DataTables("工艺卡片发放记录").GetComboListString("工序号")

cmb3.ComboList = DataTables("工艺卡片发放记录").GetComboListString("第一份_领取人")

如果想拾取三列代码如何修改呢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/23 15:44:00 [只看该作者]

提示错误，说明你列名写错了。去看看正确的列名是什么

http://www.foxtable.com/webhelp/scr/0193.htm

雅痞123456

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

加好友

发短信

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

Post By：2018/1/23 16:45:00 [只看该作者]

如果我想搜索第一份_领取人第二份_领取人第三份_领取人这三列代码应该怎么修改一下呢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/23 17:07:00 [只看该作者]

参考代码

Dim cs() As String = {"第一列", "第二列", "第三列"}
Dim ls As new List(of String)
For Each dr As DataRow In DataTables("表A").Select("")
    For Each c As String In cs
        If dr(c) <> Nothing AndAlso ls.Contains(dr(c)) = False Then
            ls.add(dr(c))
        End If
    Next
Next
Dim str As String = String.Join("|", ls.ToArray)
msgbox(str)

雅痞123456

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

加好友

发短信

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

Post By：2018/1/24 9:52:00 [只看该作者]

Dim cs() As String = {"第一份_领取人", "第二份_领取人", "第三份_领取人"}

Dim ls As new List(of String)

For Each dr As DataRow In DataTables("工艺卡片发放记录").Select("")

For Each c As String In cs

If dr(c) <> Nothing AndAlso ls.Contains(dr(c)) = False Then

ls.add(dr(c))

End If

Dim str As String = String.Join("|", ls.ToArray)

Dim cmb1 As WinForm.ComboBox = e.Form.Controls( "产品型号")

Dim cmb2 As WinForm.ComboBox = e.Form.Controls("工序号")

Dim cmb3 As WinForm.ComboBox = e.Form.Controls("第一份_领取人")

cmb1.ComboList = DataTables("工艺卡片发放记录").GetComboListString("产品型号")

cmb2.ComboList = DataTables("工艺卡片发放记录").GetComboListString("工序号")

cmb3 .ComboList = "str()"

试了一下参考代码可以显示所有的姓名但是我改就改不出来了老师能否帮忙改正一下还有学习FOXtable 两个月了现在看别人代码能看懂但是要是写的话答题思路知道但就是写完以后反反复复会出现错误这是怎么回事呢还望指教

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/24 9:55:00 [只看该作者]

cmb3 .ComboList = str

雅痞123456

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

加好友

发短信

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

Post By：2018/1/24 14:11:00 [只看该作者]

此主题相关图片如下：1.png

改完了以后也搜索不到是不是搜索按钮的代码也需要改一下呢

Dim nms() As String = {"产品型号","第一份_领取人","工序号", "领取日期" ,"返回日期"}

Dim sps() As String = {"'","'","'",",",",","#","#"}

Dim bjf() As String = {"=","=","=","=","=",">=","<="}

Dim fds() As String = {"产品型号","第一份_领取人","工序号","日期","日期"}

Dim Filter As String

For i As Integer = 0 To nms.Length - 1

If e.Form.Controls(nms(i)).value IsNot Nothing Then

If filter > "" Then

filter = filter & " and "

End If

filter =filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)

End If

If e.Form.Controls( "已还").checked = True

If filter > "" Then

filter = filter & "and "

End If

If e.Form.Controls( "已还").checked = True

If filter > "" Then

filter = filter & " and "

End If

filter=filter & " 已还=true"

End If

If e.Form.Controls( "未还").checked = True

If filter > "" Then

filter = filter & " and "

End If

filter=filter & " (未还 =false or 未还 is null)"

End If

Tables("工艺卡片发放记录").filter = filter

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/24 14:13:00 [只看该作者]

msgbox(filter) 弹出什么？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/24 14:21:00 [只看该作者]

Dim nms() As String = {"产品型号","工序号", "领取日期" ,"返回日期"}
Dim sps() As String = {"'","'","#","#"}
Dim bjf() As String = {"=","=","=","="}
Dim fds() As String = {"产品型号","工序号","日期","日期"}
Dim Filter As String
For i As Integer = 0 To nms.Length - 1
    If e.Form.Controls(nms(i)).value IsNot Nothing Then
        If filter > "" Then
            filter = filter & " and "
        End If
        filter =filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
    End If
Next
With e.Form.Controls( "领取人")
    If .text
        If filter > "" Then
            filter = filter & " and "
        End If
        filter=filter & "(第一份_领取人 = '" & .value & "' or 第二份_领取人 = '" & .value & "')"
    End If
End With
If e.Form.Controls( "已还").checked = True
    If filter > "" Then
        filter = filter & " and "
    End If
    filter=filter & " 已还=true"
End If
If e.Form.Controls( "未还").checked = True
    If filter > "" Then
        filter = filter & " and "
    End If
    filter=filter & " (未还 =false or 未还 is null)"
End If
Tables("工艺卡片发放记录").filter = filter

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/24 14:22:00 [只看该作者]

不会做就请上传实例。

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

总数 13 1 2 下一页

主题：代码报错