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


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

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/10 11:13:00 [显示全部帖子]

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/10 12:23:00 [显示全部帖子]

实例发上来测试

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/10 20:36:00 [显示全部帖子]

修改代码

 

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))
    Next
    dr2("客户") = e.Form.Controls("TextBox1").text
    dr1("已出库") = True
Next


 回到顶部