[求助]怎么老显示：未找到类型“String”的公共成员“Value”。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么老显示：未找到类型“String”的公共成员“Value”。

共有3439人关注过本帖树形打印复制链接主题：[求助]怎么老显示：未找到类型“String”的公共成员“Value”。

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

[求助]怎么老显示：未找到类型“String”的公共成员“Value”。 发帖心情

Post By：2019/3/10 4:18:00 [只看该作者]

在主窗口中，下表的筛选，右侧的文本框，点击按钮“筛选”，下表会根据右侧的文本框内输入的内容筛选数据，怎么写代码？

我写的代码是：

Dim Filter As String

With e.Form.Controls("TextBox1").text

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "客户 = '" & .Value & "'"

End If

End With

If Filter > "" Then

DataTables("表B").LoadFilter = Filter

DataTables("表B").Load

End If

但是，怎么老显示：

.NET Framework 版本：2.0.50727.8800

Foxtable 版本：2018.10.9.1

错误所在事件：窗口,主窗口,筛选,Click

详细错误信息：

未找到类型“String”的公共成员“Value”。

[此贴子已经被作者于2019/4/30 9:54:11编辑过]

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2019/3/10 9:33:00 [只看该作者]

求助呀！

有点甜

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

加好友

发短信

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

Post By：2019/3/10 9:44:00 [只看该作者]

Dim Filter As String

With e.Form.Controls("TextBox1")
    If .text IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = '" & .text & "'"
    End If
End With

If Filter > "" Then
DataTables("表B").LoadFilter = Filter
DataTables("表B").Load
End If

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

[求助]回复：（有点甜）Dim Filter As StringWith e.Form.... 发帖心情

Post By：2019/3/10 10:49:00 [只看该作者]

此主题相关图片如下：dix`akmgm{r_}_x_gdo`s}p.png

Dim Cols1() As String = {"入库编号","品名规格","工序","单位","入库单价","客户数量","过磅数量","应收金额","出库"}

Dim Cols2() As String = {"入库编号","品名规格","工序","单位","入库单价","客户数量","过磅数量","应收金额","出库"}

For Each dr1 As DataRow In DataTables("入库明细表").Select("[出库] = true")

Dim dr2 As DataRow = DataTables("出库明细表").AddNew()

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

dr2(Cols2(i)) = dr1(Cols1(i))

dr1("已出库") = True

Dim Filter As String

With e.Form.Controls("TextBox1")

If .text IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "客户 = '" & .text & "'"

End If

End With

If Filter > "" Then

DataTables("出库明细表").LoadFilter = Filter

DataTables("出库明细表").Load

End If

DataTables("入库明细表").ReplaceFor("出库", False, "[出库] = true")

'Tables("出库明细表").Sort = "入库日期"

Dim r As Table = Tables("出库明细表")

r.Position = r.rows.count-1

Dim d As Table = Tables("编辑录入窗口_出库明细表")

d.Position = d.rows.count-1

有点甜

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

加好友

发短信

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

Post By：2019/3/10 11:13:00 [只看该作者]

你出库明细表没有对应的【客户】列，请修改成正确的列名，且此列不能是表达式列。

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

回复：（有点甜）?你出库明细表没有对应的【客... 发帖心情

Post By：2019/3/10 11:35:00 [只看该作者]

“编辑录入窗口”中的“选择出库”按钮，不知道是不是代码有误，您之前说的问题已经排除，

预览试运行，

点选“入库明细表”中的“出库”列后，再点击“选择出库”按钮，

发现下面的“出库明细表”的订单导入，

只是闪了一下，就又不见了，

能不能做到，导入后，显示控件textbox1内容，也就是“入库订单表”中选中的客户列名称，所对应的行？

[此贴子已经被作者于2019/3/10 12:17:34编辑过]

有点甜

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

加好友

发短信

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

Post By：2019/3/10 12:23:00 [只看该作者]

实例发上来测试

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

回复：（有点甜）实例发上来测试 发帖心情

Post By：2019/3/10 13:14:00 [只看该作者]

[此贴子已经被作者于2019/4/30 9:54:20编辑过]

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

回复：（有点甜）实例发上来测试 发帖心情

Post By：2019/3/10 16:11:00 [只看该作者]

已经上了实例，求助呀！

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2019/3/10 19:05:00 [只看该作者]

求助

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

总数 12 1 2 下一页

主题：[求助]怎么老显示：未找到类型“String”的公共成员“Value”。